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SECTION 

A USING CARTRIDGES 11-3 

B SAVING/RESTORING CARTRIDGES 11-14 



11A* USING CARTRIDGES 



Before you can access a cartridge, the cartridge must be 
entered in two lists. 



SYSTEM CARTRIDGE LIST — a permanent list 
(on LU 2) of all cartridges currently mounted in 
the system. 



SCB CARTRIDGE LIST ~ a temporary list (in 
your SCB) of the cartridges currently mounted to 
your account (P) or to your group (G). 



When you allocate a cartridge (AC command), the 
File Management System adds the cartridge to both 
lists. 



• When you log-off and save private and/or group 
cartridges, the cartridges are not removed from the 
System Cartridge List, 
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LOGON 

When you log-on, the system builds an SCB in 
SAM for your session. The SCB describes your 
session's capabilities and limitations. 



ACCOUNT FIUE 



SCB 





GENERAL INFO . 


s 

X 




SST 


system 


session 












CARTRIDGE LIST 










user 

account 

entiy 



SYSTEM CARTRIDGE LIST 
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WHAT TYPE OF CARTRIDGES? 



Disc cartridges con be either dedicated cartridges 
or spare pool cartridges. For example, 



7906 














Dedicated 
cartridges 




LU 21^ system cartridge 
LU 3 J auxiliary cartridge 



Spare 

Cartridge 

Pool 



(luIi) 

(LU32) 




LU30 



S) 
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ALLOCATING CARTRIDGES 

:AC 



You request the use of a disc cartridge from the 
spare cartridge pool with the FMGR AC command. 



AC,crn 



, size [, id [, 'directory traclca]] 



CL 
LU 

02 
03 
31 



LAST TRACK 



CR 



00255 00002 
00255 00003 
00400 00031 



:AC,SS 
:CL 

LU LAST TRACK 



32 
02 
03 
31 



00140 
00255 
00255 
00400 



CR 

SB 
00002 
00003 
00031 



:DL,SS 

CR« SS 

ILAB-DC0032 NXTR 



LOCK P/G/S 

■ S 
S 
S 



LOCK P/G/S 

P 
S 
S 
S 



NAME 



TYPE 



00000 NXSEC-000 'SEC/TR-096 LAST TR-00140 'DR TR-01 
SIZE/LU OPEN TO 
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SOB 



System Catitridge List 




• Hv/^cpn^ • • • • 




Dedicated 
Cartridges 



V Spare Cartridge 
' Pool 
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^OONtl^^M^^'^^TiMoGfis 



You can also mount a disc cartridge with the FMGR 
IVIC command. 



MC,lu 



P 



, size 



^id , ^directory track5[,crn 



CL 
LU LAST TRACK 



CR 



used oniy if there is not a valid file directory on the 
first directory track 

LOCK P/G/S 



02 00255 00002 

03 00255 00003 
31 00400 00031 



:MC,-32 

FMGR 043 

: ?? 

FMGR 043 LU NOT FOUND IN SST 

:SL,32,32 

:MC,-32 

:CL 

LU LAST TRACK CR LOCK P/G/S 



32 


00140 


SS 


02 


00255 


00002 


03 


00255 


00003 


31 


00400 


00031 



:DL,-32 
CR-SS 
ILAB-DC0032 NXTR- 00078 NXSEC-090 'SEC/TR-096 LAST TR-00140 'DR TR-01 



NAME 



TYPE 



SIZE/LU 



OPEN TO 



%TCL 00005 00024 BLKS 

%TP3 00005 00024 BLKS 

XTEMA 00005 00024 BLKS 

XTTYP 00005 00024 BLKS 

TXTSPL 00004 00040 BLKS 

&TCL 00004 00003 BLKS 

TRSPL 00003 00003 BLKS 

DOC 00003 00024 BLKS 
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see 



SST 


system 


session 







CARTRIDGE LIST 



System Cartridge 
List 




/- 



sMC , lu, • . . 



Dedicated 
Cartridges 



Spare Cartridge 
Pool 
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^ ISM OU NT \H© ^ A RT RID G^^^ 

:DC 

Cartridges may be dismounted in two ways: 
© Setting a cartridge inactive 

:DC, cartridge 

t 
positive crn 

negative LU 

This marks tiie cartridge as inactive in your SCB 
Cartridge List. 

• the cartridge remains in the System 
Cartridge List and in your SCB Cartridge List. 

• the cartridge is omitted in any file searches 
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Actually dismounting a cartridge 



:DC, cart ridge, RR 

f 
Release Resources 



This deletes the cartridge ifrom 

• your SCB's cartridge list 

• the system cartridge list 

and removes the disc LU from your SCB's SST. 
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PACKING CARTRIDGES 



Users can pack their private or group 
cartridges to reclaim space released by 
purged files and close any gaps left between 
files. 



:PK, cartridge 



positive CRN, 
negative LU 



• if no cartridge is specified, all of the 

' user's private and group cartridges are 
packed. 

• all files on the cartridge must be closed. 



11-12 



COPYING CARTRIDGES TO 
OTHER CARTRIDGES 



You can copy all files on a mounted cartridge to another 
mounted cartridge with the FMGR CO commahd. 



:C0, cartridge 1 , cartridge 2 



cartridge to be copied 
positive CRN or 
negative LU 



destination cartridge 
positive CRN or 
negative LU 



• Files of the same name on both cartridges are not 
transferred. 

• The original contents of cartridge 2 are not affected. 

• Any records >128 words are truncated as they are 
transferred to cartridge 2. 
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11B. SAVING/RESTORING 
CARTRIDGES 



t> 



4V 



Users can save the contents of their private or group 
cartridges on magnetic tape with the WRITT utility. 



:RU, WRITT 



, cart ridge 

A 



,mag tape lu 



positive crn 

negative LU of disc cartridge 



WRITT will rewind the mag tape before and after 
the save operation. 



if the tape already contains a save of a different 
CRN, WRITT will ask if you want to overlay the 
cartridge already on the tape. 
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RESTORING CARTRIDGES 



Users can restore cartridges from magnetic tape 
back to private or group disc cartridges with the 
READT utility. 



:RU,READT 



, cartridge 

A 



r 
,mag tape lu , [, size] 



positive cm 

negative LU of disc cartridge 

if a CRN is specified and the cartridge is not 
already mounted, READT will mount a 
cartridge from the sp^ire cartridge pool and 
restore it from tape, 

if a disc LU is specified, the specified cartridge 
is restored. 
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SPOCLING 




SECTION 

A WHAT (S SPOOLING? 12-3 

B USING SPOOLING INTERACTIVELY 12-6 

C HOW SPOOLING WORKS 12-14 

D MONITORING SPOOLING — GASP 12-18 



12-2 



12A. WHAT IS SPOOLING? 




Consider a program outputting data to the 
line printer — 



PROGRAM 



<#» 



LU 6 
LINE PRINTER 



1. if tine program outputs a line of data 
every few minutes, how do you 
prevent interleaved listings from other 
programs? 



2. If the program outputs large amounts 
of data, how do you insure that the 
program will execute as quickly as 
possible? 
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A SOLUTION 



Use an intermediate disc file in the output 
process. 



PROGRAM 




LU 6 
LINE PRINTER 



V^ 



-^v* 



y 

first, the program 
outputs to the disc file is output to the line printer 



r 

then, the data 



J 



1. The program may execute faster since 
disc accesses are faster than line printer 
speeds. 



2. The line printer may operate as fast as it 
can, rather than waiting for output 
requests to be made by a program. 
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THE SPOOL SYSTEM 



• allows both INPUT and OUTPUT spooling 

• must be initialized by the System Manager before 
you can use spooling, in the initialization process, 
the System Manager sets up: 

SPOOL FILE POOL — the System Manager defines 

a group of disc files 
available for use as spool 
files. Individual spool files in 
the pool are called SPOOL 
POOL FILES. 

OUTSPOOL LU's — the System Manager 

identifies which devices 
(LU's) can be the destination 
of an output spooling 
operation. 

^ can be used 

INTERACTIVELY 



FROM BATCH JOBS 
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12B. USING SPOOLING 
INTERACTIVELY 

Using SPOOLING involves three simple steps. For example, 
consider a program outputting to the line printer (LU 6) via a 
WRITE (6,101) statement. 




SPOOL POOL FILE 
(looks like LU 6) 



PROGRAM PROGA 



WRITE C6,101 ) - - 



LU 6 
LINE PRINTER 



Step 1 Set up a spool file by — 



allocating a spool pool file 
associating it with LU 6 



Step 2 Run the program 



Step 3 Close the spool file by 



reassociating LU 6 with 
the line printer 



letting the Spool System 
dump the spool file to 
the line printer and then 
return the spool file to 
the spool file pool. 
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NEW FMGR COMMANDS 

STEP 1 — another version of the SL command sets up 
spooling 

:SL,6,,WR,6 

'" \ 

OUTSPOOL LU — the lii where 
the output will eventually be 
dumped 

ATTRIBUTE — says the spool file 
will be used for output 

SPOOL FILE — defaulted pairameter 
says use a spool pool file 

SPOOL LU — the lu to be associated 
with the spool file and to be referenced 
by programs or FMGB commands 

STEP 2 — run the program (or use FMGB commands) 

STEP 3 — the CS command completes the spooling 
operation 

s CS 7 6 

A 

closes the spool file associated 

with this LU by — reassociating LU 6 

with its former device 
— queuing the spool file 
to be dumped to the 
specified outs|^ool lu. 
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EXAMPLE 2 Spooled output via a user defined 

spool file. 

Instead of using a file from the spool file pool, you 
can use one of your own disc files as a spool file. 



:CR,f ile: :crTi:3:24 
:SL,6,f ile: :crTi,WR,7 
:RU,PROGA 
:CS,6 



PROGA 




WRITEC6,101 ). 



LU 7 
a 2nd LINE PRINTER 
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EXAMPLE 3 Formatted output to disc files using 

FORTRAN WRITES or EXEC WRITES 
to non-disc LU's 



PROGA 



WRITEC6,101 ).. . 




CR,f ile: :crn:3:24 
SL,6,f ile: :crn,WRST 
RU, PROGA 
s Cd 9 o 
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EXAMPLE 4 Input spooling 



program 



LU 11, paper 
tape reader 




READC11 ,102). . 



ST J 1 ,f ile: :crn:3:24 
SL,1 1 ,f ile: :crTt,RE 
RU, program 
CS,11 
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SPOOL FILE SETUP ^ 



o 



The SL command associates an LU with a spool 
file; the spool file can be either a spool pool file 
or a user defined file. 



;SL, lu,namr, at tributes, out spool lu, priority, prog 



program 

scheduled 

when 

the 

spool 

file 

Is closed 



outspool priority 



lu where the spool 
file will be dumped 



how the spool file 
will be used 



file to be used 
as the spool file 

lu to be associated 
with the spool file 
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CHANGING SPOOL FILE 
ATTRIBUTES 



In addition to closing spool files, the FMGR CS 
command can be used to change a spool file's 
attributes. 



:CS,lu 



,EN 
,RW 
,PU 
,SA 

,PA 
,NB 
,BU 
,NP, out lu, priority 
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SPOOLING 




• EASY TO USE 



TRANSPARENT TO YOUR PROGRAMS 



ALLOWS INCREASED UTILIZATION OF 
SYSTEM RESOURCES 



PERMITS I/O TO DISC FILES VIA READS 
AND WRITES TO NON-DISC LU's 
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12C. HOW SPOOLING WORKS 



The Spool System consists of: 



SPOOL FILE POOL - 



a set of disc files 
which the Spool 
System lets you use as 
spool files 



JOBFIL 



a disc file containing 
information about the 
availability of the 
spool pool files 



SPLCON 



a disc file containing 
information about the 
spool files currently in 
use 



SPOOL SYSTEM 
MODULES 



— programs to manage 
spooling 
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SPOOL SYSTEM MODULES 



Three of the Spool System Modules are 



SMP — assigns and manages spool files 



SPOUT 



dumps spool files in the outspool 
queues to their appropriate 
outspool LU's. SMP schedules 
SPOUT as needed. 



GASP 



allows the System Manager to 
initialize the Spool System. 



allows users to interactively enter 
commands to examine and modify 
the status of their spool files. 
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SYSTEM SPOOL LU's 



When generating RTE, the System Manager 
defines a set of LU numbers to be used by the 
Spool System. 



Table 


of System Spool 


LU'S 

• 


Spool file 


Used? 


System Spool LU 


— 


no 




16 


— 


no 




17 


— 


no 




18 


— 


no 




19 


SPOL01 


yes 




20 
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SPOOLING AND YOUR SST 



When you set up a spool file, the Spool System 
adds an entry to the SST in your Session 
Control Block. 



SCB 



KAREN.PROGDEV 


30 


SST 


system LU 


session LU 


9 


1 


2 


2 


3 


3 


32 


4 


33 


5 


6 


6 


10 


7 

m 


• 


m 
m 



:SL 
















SLU 


1«LU 


# 


9 


af 


E 


9 




SI/U 


2»LU 


# 


2 


ai 


E 


1 




SLU 


3«LU 


# 


3 


a4 


E 


1 


S 6 


SLU 


4«LU 


« 


32 


d 


E 


9 


S 1 


SLU 


5«LU 


# 


33 


4 


E 


9 


S 2 


SLU 


6=LU 


# 


6 


m 


E 


6 




SLU 


7»LU 


# 


10 


n 


ElO 




SLU 


8«LU 


* 


8 


at 


E 


8 




SLU 


25aLU 


* 


25 


a| 


E 


1 


S16 


SLU 


28=LU 


# 


28 


a| 


E 


1 


S 1 


SLU 


38»LU 


# 


38 


3t 


E 


1 


S 2 


SLU 


47aLU 


# 


47 


3| 


S 


1 


Sll 


SLU 


50«LU 


# 


50 


9 


E 


1 


S14 


:SL, 


6 , , ,6 














:SL 
















SLU 


1«LU 


# 


9 


SB 


E 


9 




SLU 


2»LU 


# 


2 


* 


E 


1 




SLU 


3»LU 


# 


3 


at 


E 


1 


S 6 


SLU 


4»LU 


# 


32 


3^ 


E 


9 


S 1 


SLU 


5-LU 


# 


3^ 


ai 


E 


9 


S 2 


SLU 


6«LU 


# 


19 


m 


E19 




SLU 


7«LU 


# 


10 


m 


ElO 




SLU 


8«LU 


# 


8 


at 


E 


8 




SLU 


25«LU 


# 


25. 


a* 


E 


1 


S16 


SLU 


28-LU 


# 


28 


m 


E 


1 


S 1 


SLU 


38«LU 


« 


38 


4t 


E 


1 


S 2 


SLU 


47«LU 


# 


47 


ait 


E 


1 


Sll 


SLU 


50»LU 


# 


50 


ai 


E 


1 


S14 
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12D. MONITORING SPOOLING 
GASP 



GASP allows you to interoGtively enter commands to 
examine and modify the status of your spool files. 

You run GASP by 

:RU,GASPC ,lu] 
I GASP responds with a 

prompt for a command 



or 



: RU, GASP ^command 

GASP processes the 
command and terminates 

Two useful commands are 

t?? error explanation 

tEX exit GASP 



12-18 



DISPLAYING SPOOL STATUS 



im,GkSP,DS 

SESLU SYSLU NAME PRIORITY JOB# STATUS 

6 6 SPOL03 99 — W 

— IFILE 99 — W 
END GASP 

:RU,GASP,OSAL 

SESLU SYSLU NAME PRIORITY JOB# STATUS USER, GROUP 

6 6 SPOLOl 99 — AH MANAGER, SYS 

6 6 SPOL02 99 — W YIT.HP 

6 6 SPOL03 99 — W COREY. HP 

— IFILE 99 — W COREY .HP 
END GASP 



The status of a spool file is represented by 1 of 4 states. 

W WAITING — the spool file has been setup but 

not closed. 

— the spool file has been closed and 
is in an outspool queue. 

A ACTIVE — the spool file is being dumped to 

an outspool LU. 

AH ACTIVE HOLD — the spool file was being dumped 

but was held by a GASP operator 
request or a down device. 

H HOLD — the spool file was in state W but 

was held by a GASP operator 
request. 
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MODIFYING SPOOL STATUS 



• CHANGE SPOOL FILE STATUS 

outspool priority 
tCS, spool file,H 

R 



RESTART AN ACTIVE SPOOL FILE 

tRS, spool fileC , outspool lu] 

KILLING SPOOL FILES 

fKS, spool file 

UP AN OUTSPOOL DEVICE 

fUP[,RS] 
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BATCH PC€CE$$INe 

€r J€C$ 




Section 

A FMGR AND BATCH JOBS 13-3 

B USING BATCH PROCESSING 13-6 

C MONITORING JOBS — GASP 13-14 



13-2 



13A. FMGR AND BATCH JOBS 



FMGR performs three main functions: 

1. Interfacing users to RTE 

2. Allowing Interactive file manipulation 

3. Processing jobs in batch mode 



Only FMGR (not FMGxx) can process jobs! 
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BATCH PROCESSING 
USES SPOOLING 




INPUT BATCH 



SPOOL FILES USED 
TO HOLD JOBS 



SPOOL FILES USED OUTPUT 

TO HOLD JOB OUTPUT FROM JOBS 



Jobs execute on a priority basis, 
except for the first job which goes 
into execution as soon as it is 
entered. 



Job output is printed on a priority 
basis, except for the first job, whose 
output is printed as soon as the job 
ends. 
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HOW JOBS ARE PROCESSED 



You run program JQB to submit a batch job. program 
JOB will initiate batcb processing, scheduling the 
necessary programs automatically. 




INPUT BATCH 



SPOOL FILES 
CONTAINING JOBS 



SPOOL FILES 
CONTAINING 
JOB OUTPUT 



OUTPUT 
FROM JOBS 
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13B. USING BATCH PROCESSING 



3 EASY STEPS 



• Define the job 



2 new FMGR commands 



* Submit the job 



Program "JOB" 



• Get the answers! 
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DEFINING JOBS 



The format of any batch job is: 



i- job name 

pa time limit for the job 

pthe user submitting the job 

p priority for job processing 



p priority for outspooling 
job output 



p options for 
listing job output 



JO ,name:hr :min: sec , user , priority , spool priority, outspool option 



FMGR commands (and possibly programs and/or 
data) comprising the job 



EDC ,RPC ,RG3 ] 



For example, 



:JO,jaB5:0:5:30,VIC,HP/%Va 

:RU,FTN4,&PR0GF,6,- 

:RU,LOADR, ,%PR0GF,6 

:RU,10G 

:Ea 
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A JOB^S SESSION 

When a job executes, it runs in a session, just as if 
the user specified in the JO command had logged 
on at a terminal. 

If no user was specified in the JO command, the 
user who submitted the job is used. 



• The job has access to the same LU's as does 
that user, with three exceptions: 

LU 1 is the system console 

LU 5 is the job's inspool file (the job itself) 

LU 6 is the job's outspool file 

• The job has access to the same disc 
cartridges as does that user. 

• FMGR's devices are initially set as follows: 

input device LU 5 
list device LU 6 
log device LU 1 

• FMGR's severity code is initially set to 0. 



When a job terminates, it ends its session, just as 
if the user had logged off at a terminal. Private 
and group cartridges may be saved (default) or 
released when the job ends. 
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SUBMITTING JOBS 



Jobs are submitted by running program JOB. 

:RU, JOB, namrC , priority] 

if namr is 

^ a fiie, program JOB inputs a singie job from 
tlie fiie. 

:RU,JOB,jaBE 

^ a non-interactive lu, program JOB inputs one 
or more jobs from tiie device specified. 

:RU,JQB,8 

^ an interactive lu, program JOB prompts for a 
command. 

:RU,J0B,1 

;:XE,JOBF The:XE 

;:XE,JOBG command 

.f * 1 T> % inputs a smgle 

,tcontrolD) job stored in the 

: specified file. 
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A JOB INPUT PROBLEM 



Assume the card reader (LU 5) contains a 
FORTRAN source program. Will this job 
compile, load, and run the FORTRAN program? 



JD,JCLR, KAREN. PROGDEV 

RU,FTN4,5,6,%TEMP 

RU,L0ADR,,%TEMP,6 

RU,10G 

EO 



13-10 



SOLUTION 1 



In Q job, LU 5 references the spool file containing 
the job itself; you could put the FORTRAN progrom 
in the "job deck". 

: JO , JCLR , KAREN . PROGDEV 
:RU,FTN4,5,6,%TEMP 

FTN4,L 

PROGRAM APROG 



END 

END$ 

RU,LOADR, ,%TEMP,6 

RU,10G 

EO 
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SOLUTION 2 



Suppose the card reader is session LU 5 but 
system LU 15. Use the SL command to define a 
new session LU pointing to the same system 



JO , JCLR , KAREN . PROGDEV 

SL,11 ,15 

RU,FTN4,11 ,6,%TEMP 

RU,LOADR, ,%TEMP,6 

RU,10G 

ED 
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MORE COMMAISfDS TO USE 
WITH JOBS 



• Setting a program execution time limit 

:TL: hr :min : sec 



• Aborting a job 

: AB 
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13C. MONITORING JOBS — GASP 



GASP lets you enter commands to 
examine and modify the status of 
your jobs. 
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DISPLAYING JOB STATUS 



:RU,GASP,DJ 

JD# NAME STATUS SPOOLS 

1 JQB1 S 99 A 1 
END GASP 
:RU,GASP,DJAL 
ja# NAME STATUS USEF?. GROUP SPOOLS 

1 J0B1 S 99 A COREY. HP 1 

2 J0B2 S 99 R YIT.HP 

3 J0B3 S 99 R DENNIS. HP 
END GASP 



A job's status is represented by 1 of 5 states. 

I the job is in the process of being INSPOOLED 

IH the job was being INSPOOLED but was HELD 
by a GASP operator request 

I A the job was being INSPOOLED but was 
ABORTED by a GASP operator request 

R the job is READY to be processed 

RH the job was READY but was HELD by a GASP 
operator request 

A the job is being processed by FAAGR (ACTIVE) 

CS the job has COMPLETED and is ready for 
OUTSPOOLING 
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MODIFYING JOB STATUS 



• Changing a job's status 



!CJ,job number, job priority 

H 
R 



Removing pending jobs 

lAB^job number 
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ABORTING THE CURRENTLY 

EXECUTING BATCH JOB 



The system AB command 



aborts the currently executing batch job 



must be entered from the system console 
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The System Console is enat^ed as a ''session 
terminal" by using the following command. 

*EN» master security codeC »opt ion] 

The System Console then operates like any gther 
terminal. 



PLEASE LOG ON : KAREN . PROGDEV/%KRP 



The System Console remains enabled as a session 
terminal until 

— the system is re-booted 

— the System Console is disabled via the 
program ACCTS 
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SYSTEM LEVEL OPERATOR COMMANDS 



The system OP command lets the operator 
enter a single system command without having 
the command subject to command capability 
checking. 



S = 01 COMMAND?OP, master security code , command 



(Note: the command is still processed in 
session; only command capability checking is 
bypassed) 
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1J 



TIME-SCH EDULEID 
PCCeCAMS 




TIME-SCHEDULED PROGRAMS 



RTE, the REAL-TIME EXECUTIVE, allows you to 
sohedule programs to execute at specific times 
during the day. 

• RTE keeps a list (the TIME LIST) of those 
programs which are time-scheduled. 

• RTE keeps a REAL-TIME SYSTEM CLOCK which is 
used to time-schedule programs. 

* the system Tl command displays the 
current system time 

S = XX COMMAND?! I 
1978 345 13 17 43 

* the system TM command lets the operator 
set the System Clock 

S « XX CQMMAND?TM,1979,150J1 ,45,30 
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TIME BASE GENERATOR 



RTE uses the TIME BASE GENERATOR (TBG) to 
update its System Clock. The TBG interrupts the 
CPU every 10 milliseconds. While processing the 
interrupt, RTE 



• updates the time in its System Clock 

• checks the time-list to see if any 
programs need to be scheduled 
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TYPES OF TIME-SCHEDULING 



RTE allows you to schedule programs to execute: 
^ at an absolute time 



♦ at a specified offset from the present > 



"starting 
times'' 



♦ only once ) . 

I "mterval 

♦ repeatedly, at specific intervals J "^^ 



A program's '^starting time" and "interval time" are 
referred to as its time parameters. 
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WAYS TO TIME-SCHEDULE A PROGRAM 



INTERACTIVELY 

^ define the program's time paramieters in its 
PROGRAM (or NAM) statement 

issue the system ON command to put the 
program in the time list 

• use the system IT command to set the 
program's time parameters 

issue the system ON command 



PROGRAMMATICALLY 

^ have the program make an EXEC 12 call to 
define a program's (or its own) time parameters 
and place that program (or itself) in the time 
list 



15-6 



DEFINING TIME PARAMETERS 



PROGRAM (or NAM) statement 

PROGRAM name Ctype , priority, res ,mpt , hr , min , sec ,ms) 



w^ ><w 



defines defines 

interval time starting time 



• System IT command 



:SY IT, program, res ,mpt ,, hr ,min, sec ,ms 



defines defines 

interval time starting time 



For interval time < 



res 



mpt 



1 10's of milliseconds 

2 seconds 

3 minutes 

4 hours 

number of units (in "res") to 
wait between repeated time 
scheduling 



For starting time 



hr - 


— hour 


min - 


— minutes 


sec - 


— seconds 


ms 


— 10's of milliseconds 
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TIME PARAMETER EXAMPLES 



:SYIT,APROG,3,5,12,0,0,0 



:SYIT,BPR0G,1 ,10,3,15,45,10 



:SYIT,CPRDG,1 ,0,18,0,0,0 
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PLACING THE PROGRAM IN THE TIME 

LIST 



The system ON command places the specified program 
in the time list using previously defined time parameters. 

:SYON, program, N0W,p1 ,p2,p3,p4,p5 

optionoi porometers to be 
passed to the program 

If Specified, ignore starting time and schedule the 
program immediately 

if omitted, place the program in the time list according to 
its time parameters 

For example, 

:SYIT,YQURP,4,1 ,17,0,0,0 
:SYaN,YOURP 

:SYIT,riYPRG,2,100,18,0,0,0 
:SYaN,MYPRG,NOW 
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PROGRAMMATIC TIME SCHEDULING 



The EXEC 12 call allows a program to put a 
specified program or itself into the time list. The 
program may be scheduled to initially execute: 



at g specified offset from the present time 



CALL EXEC C12,INAME,IRESL,IMULT,I0FST) 




resolution code, execution multiple, offset starting time, 

defining units of time defining interval time a negative value 



at an absolute time 



CALL EXEC (12, INAME , IRESL , IMULT, IHRS , IMIN , ISEC , IMSEO 




resolution code execution multiple 



absolute starting time 
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Examples 



1. IRESL 


m 


4 


I MULT 


a 


1 


IHRS 


M 


15 


IMIN 


s 


45 


I SEC 


a 





I MSEC 


s 






CALL EXEC (12, INAME, IRESL, IMULT, IHRS, IMIN, ISEC.IMSEC) 

2. IRESL - 2 
I MULT « 
lOFST « -600 

CALL EXEC C12,INAME, IRESL, IMULT,IOFST) 

3. IRESL » 3 

I MULT -15 

IQFST » -30 

CALL EXEC CI 2, INAME, IRESL, IMULT, lOFST) 



.. IRESL 


a 


3 


IMULT 


a 





IHRS 


a 


-5 


IMIN 


a 





I SEC 


■ 





I MSEC 


a 






CALL EXEC C12, INAME, IRESL, IMULT, IHRS, IMIN, ISECIMSEC) 



1 



*»4 



•»• 
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A QUESTION 



When you run o program 
(: RU, program), FMGR waits for the 
program to complete and then issues 
another prompt. 



When you time schedule a program 
(:SYQN,programX FMGR requests RTE to 
place the program in the time list and 
immediately issues another prompt. 



Con you log-off before the time-scheduled 
program executes? 
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16A. EXEC SCHEDULING CALLS 



The EXEC 9, 10, 23 and 24 calls allow a program to 
schedule another program,, 

A program that schedules another program is 
called a FATHER; a prograrTi that is scheduled by 
another program is called a SON. 

To schedule a Son use: 

CALL EXEC CICQDE,INAME) 

array containing the 
name of the program to 
be scheduied 

type of scheduling: 

EXEC 9 - Immediate Schedule, wait for 

compl€5tion 

EXEC 10 — Immediate Schedule, no wait 

EXEC 23 — Queue Schedule, wait for completion 

EXEC 24 — Queue Schedule, no wait 
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IMMEDIATE SCHEDULE vs. QUEUE SCHEDULE 



Immediate Schedule — The Son program 

should be scheduled 
immediately. 

• If the Son is dormant, it is immediately 
scheduled and runs at its own priority. 

• If the Son is not dormant it is not 
scheduled and its state is returned in the 
A-register. 



Queue Schedule — The Son program should be 

scheduled whenever it is 
dormant. 

• If the Son is dormant, it is immediately 
scheduled and runs at its own priority. 

• If the Son is not dormant, the schedule 
request is placed in a queue but the Son's 
state is not returned in the A-register. 
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WAIT SCHEDULE vs. NO WAIT 

SCHEDULE 



Schedule with wait implies ttiat the Father 
waits for the Son to complete before 
resuming execution. 

Schedule witliout wait implies that the 
Father does not wait for the Son to 
complete; rather, the Father and the Son 
will compete for execution time on a 
priority basis. 
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AN EXAMPLE TO PROGRAM 



FATHR 



SONPG 



input: a set: of values. 

Schedule SONPG too siorc 
values and delete duplicate 
values. 

Print l:he sorted valucss. 




Sorts a set of values, 
deleting duplicate values in 
tl-ie process. 
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16B. PASSING AND RETURNING 
INFORMATION 



Consider running a program from FMGR — 
• you can pass information to the program 

: RU , PROGA ,^ 6,AF , IL,E 



PROGA can then retrieve the 
infonnation. 



• the program can also return information to FMGR 

PROGRAM PROGA 
INTEGER PARMC5) 



CALL PRTN CPARM) 
END 

PROGA returns the values in FARM to 
FMGR. 
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FATHER TO SON COMMUNICATION 



A Father can send information to a Son via the EXEC 
scheduling call. 

I0P1 to I0P5 are optional parameters, 
whose values are passed to the Son. 
The Son uses RMPAR to retrieve the 
values. 



r ' N 

CALL EXEC CICDDE,INAME,I0P1 ,I0P2,I0P3,I0P4,I0P5,IBUFF,ILEN) 

IBUFF is an array of data to be 
passed to the Son. ILEN specifies 
the positive number of words or 
negative number of characters to 
be transferred. 

The Son uses an EXEC 14 call to 
retrieve the data. 
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SON TO F=ATHER 



^^ ^f ^^ '^y^ >^ 

1*^% 1**^^ <^r*¥ ii^pr '*^|N 



If the Father scheduled the Son with wait , the Son con 
return Information to the Father. 

Via PRTN and RMPAR 

• the Son calls PRTN to pass up to 5 values back to 
the "waiting" Father, 

• the "waiting" Father retrieves the values with a call 
to RMPAR. 

Via EXEC 14 

• the Son uses on EXEC 14 call to pass a buffer of 
data bocl^ to the "waiting" Father. 

• the "waiting" Father retrieves the buffer with 
another EXEC 14 coll. 
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THE FATHER 



fiFATHR T-00004 IS ON CR01500 USING 00005 BLKS R-0000 
PTN4,L 



0001 
0002 
0003 
0004 
0005 
0006 
0007 
0008 
0009 
0010 
0011 
0012 
0013 
0014 
0015 
0016 
0017 
0018 
0019 
0020 
0021 
0022 
0023 
0024 
0025 
0026 
0027 
0028 
0029 
0030 
0031 
0032 
0033 
0034 
0035 
0036 
0037 
0038 



C 

<: 

C 

c: 

c 
c 
c 
c 



c 
c 
c 
c 
c 



c 
c 
c 



102 

c 
c 
c 

75 
103 

c 



PROGRAM PATHR 

INTEGER NS0N(3), MTDATA(IOO), PARM(5) 

DATA NS0N/2HS0,2HNP,2HG / 

INPUT DATA VALUES FROM THE MAG TAPE (LU 8) , 
FIRST VALUE IS A HEADER VALUE. 

READ(8,*) IVALS, (MTDATA(I ) ,I«1,IVALS) 

SCHEDULE THE SON WITH WAIT, PASSING THE NUMBER 

OF DATA VALUES AND THE ARRAY CONTAINING THE VALUES.,, 

ICODE « 23 

CALL EXEC ( I CODE ,NSON , IVALS , J,K ,L,M ,MTDATA, IVALS) 

LET THE SON SORT THE VALUES AND DELETE DUPLICATE VALUES. 

WHEN THE SON COMPLETES, RETRIEVE THE NEW NUMBER OF VALUES 

CALL RMPAR(PARM) 
IVALS « PARM(l) 

AND RETRIEVE THE SORTED DATA 

CALL EXEC(14,1,MTDATA, IVALS) 
CALL ABREG(IA,IB) 
IF(IA .EQ. 0) GOTO 75 

WRITE (1,102) 

FORMAT (" NO SORTED DATA RECEIVED FROM SON".) 

STOP 

PRINT THE RESULTS 

WRITE(1,103) (MTDATA(I),I-lrIVALS) 
FORMAT(10(10(I5,1X)/) ) 

END 
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ANO THE SON 



*SONPG T-00004 IS ON CR01500 USING 00004 BLKS R-0000 



0001 
0002 
0003 
0004 
0005 
0006 
0007 
0008 
0009 
0010 
0011 
0012 
0013 
0014 
0015 
0016 
0017 
0018 
0019 
0020 
0021 
0022 
0023 
0024 
0025 
0026 
0027 
0028 
0029 
0030 
0031 
0032 
0033 
0034 
0035 
0036 
0037 
0038 
0039 
0040 
0041 
0042 



FTN4,L 



C 
C 
C 



C 
C 
C- 



101 

C 

C 

C 

50 

C 

C 

C 

C 

C 

C 

C 



102 

c 
c 
c 

60 



PROGRAM SONPG 

INTEGER VALUESflOO), !PARM(5) 

RETRIEVE THE NUMBER OF VALUES TO BE SORTED 

CALL RMPAR(PARM) 
NVALS « PARM(l) 

AND THE ARRAY OF DATA VALUES, 

CALL EXEC (14,1, VALUES, NVALS) 
CALL ABREG(IA,IB) 
IF(IA .EQ. 0) GOTO 50 

WRITE (1 101) 

FORMAT ("NO DATA BUFFER FROM FATHER FOUND".) - 

STOP 

SORT THE VALUES, DELETING DUPLICATE VALUES IF ANY 

CONTINUE 

(VALUES WILL THEN CONTAIN THE SORTED DATA, 
NVALS WILL CONTAIN THE NEW NUMBER OF VALUES • ) 



RETURN THE SORTED VALUES TO THE FATHER 

CALL EXEC (14, 2, VALUES, NVALS) 
CALL ABREG(IA,IB) 
IF(IA •EQ. 0) GOTO 60 

WRITE(1,102) 

FORMAT ("NO FATHER FOUND TO ACCEPT RESULl^S".) 

STOP 

AND THE NEW NUMBER OF VALUES 

CONTINUE 
PARM(l) - NVALS 
CALL PRTN(PARM) 

END 



16C. PROGRAM TERMINATION 



A Father con use on EXEC 6 coll to terminate Itself or a 
Son. 



CALL EXEC (6, INAME , ICMCD, I0P1 , IQP2, I0P3, I0P4, I0P5> 



— ferminote self 

or on array containing 

the name of a Son 



if a program is terminating 

itself, up to 5 parameters 

may be stored in its ID segment 





■1 
1 

2 



Completion code, specifies the type of termination 

normal termination 

terminate serially reusable 

terminate saving resources and point of suspension 

terminate immediately after current I/O operation 
completes, remove from time list (some as 
:SYOF,program,0) 

terminate immediately (clear any I/O), remove from 
time list (some as :SYOF,program,1). 
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Program COUNT is used to print a message each time 
program UPDAT is run. 



0001 
0002 
0003 
0004 
0005 
0006 
0007 
0008 
0009 
0010 
0011 
0012 
0013 



PTN4,L 



C 
C 
C 
C 



PROGRAM UPDAT 

INTEGER NAME (3) 

DATA NAME/2HCO,2HUN,2HT / 

SCHEDULE COUNT TO PRINT MESSAGE THAT 
Vm ARE EXECUTING AGAIN. 

CALL EXEC (24, NAME) 

END 



0001 
0002 
0003 
0004 
0005 
0006 
0007 
0008 
0009 
0010 
0011 
0012 
0013 
0014 
0015 
0016 
0017 
0018 
0019 
0020 
0021 



FTN4,L 



C 
C 

c 

c 
c 
c 



101 

c 
c 

c 



PROGRAM COUNT 

INTEGER ICNT(5) 
DATA ICNT/0/ 

RETRIEVE PREVIOUS COUNT STORED IN MY ID SEGMENT 

CALL RMPAR(ICNT) 

INCREMENT COUNT AND PRINT MESSAGE 

ICNT(l) « ICNT(l) + 1 

WRITE (1,101) ICNT(l) 

FORMAT (/"PROGRAM UPDAT WAS RUN AGAIN, NUMBER ",I5) 

TERMINATE, STORING CURRENT COUNT IN MY ID SEGMENT 

CALL EXEC(6,0,0,ICNT) 
END 
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TERMINATE SERIALLY REUSABLE 



When a program executes an EXEC 6 with a 
"terminate serially reusable" completion code, RTE 
marks the program as being serially reusable., 

When the terminated program is scheduled again, 
RTE checks to see if it is still resident in memory. 

If so, the program in memory is executed. 

If not, the program is loaded from disc and then 
executed. 



Program resumes — i 
at main entry point 



NAME - 

CALL EXEC(6,NAME,-1 ) 
10 CONTINUE 



16-14 



TERMINATE SAVING RESOURCES 



When a program executes on EXEC 6 with a ''terminate 
savings resources" completion code, RTE will not 
deallocate any resources allocated to the program being 
terminated. 

When the terminated program is rescheduled, it will 
resume execution at its "point of suspension." 

If a program terminates itself saving resources, any run 
stimulus will reschedule it; if o Father terminates a Son 
saving resources, then only the Father or the RU or ON 
commands con reschedule it. 



Program resumes 
here 3^ 



10 



NAME - 

CALL EXECC6,NAriE,1 ) 

CONTINUE 
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17 



ClASS I/€ 



k^M^ 




SECTION 



A PROGRAM TO PROGRAM 

COMMUNICATION 17-3 

B CLASS I/O FOR PROGRAM TO PROGRAM 

COMMUNICATION 17-5 

C CLASS I/O - A SUMMARY OF FEATURES 1 7-21 

D CLASS I/O FOR DEVICE I/O AND CONTROL 17-23 

E VARIATIONS WITH CLASS I/O 17-35 

F TERMINAL HANDLERS 17-39 



17-2 



17A. PROGRAM TO PROGRAM 
COMMUNICATION 



RMPAR and PRTN 



• EXEC 14 



SYSTEM COMMON 
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17B. CLASS I/O FOR PBOGRAAA TO 
PROGRAi^ COMMUNiCATiON 

CLASS 110 (or MAILBOX 110) is another means of 
letting programs talk to each other. With CLA$S 110 

• the size of the data blocks passed between 
programs is limited only by the size of SAM. 



• any number of programs can communicate with 
each other and share data. 



• a program can send many data buffers before 
another program accepts one. 



• if a program asks for a data buffer before one Is 
sent, RTE can put that program "to sleep" until 
a buffer Is "sent" to the program. 



• only programs knowing a special "key" can 
access data being passed. 
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DATA TRANSFERS BY CLASS I/O ARE DONE 

THROUGH SAM 



Physlcol Memory 



© 



PROGB then "gets" the data and 
completes the transfer. 



PROGA 



Data 



PROGD 



Dote 



SAM 



Data 



RTE 



TADLES 



o 



PROGA transfers doto to PROGD 
by "dropping" the data in SAM. 
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MANUFACTURERS and 
CONSUMERS 

EXEC 20 (CLASS WRITE/REA.D) 

A program initiates a CLASS I/O program to 
program data transfer by making an EXEC 20 calL 
The CLASS WRITE/READ call will "manufacture" a 
buffer in SAM and fill it with data from the calling 
program. 

EXEC 21 (CLASS GET) 

The receiving program retrieves the data in SAM by 
making an EXEC 21 call. The CLASS GET will 
"consume" the buffer in SAM by storing the data in 
the program and releasing the SAM buffer for use 
by other programs. 

"Every call that "manufactures'' a buffer in SAM must 
have a corresponding call that "consumes" the buffer. 

CLASS I/O is said to be "double call." 

"Programs can execute independently of the data 
transfers, which are handled by RTE. 
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WHO GETS WHICH BUFFER? 
THE CLASS NUMBER IS THE KEY! 

When generating an RTE system, the System 
Manager specifies how many class numbers 
are to be in the system. 

Class numbers are used to protect the CLASS 
I/O data buffers in SAM — 

• when a program uses CLASS I/O for 
program to program communication, it 
must 

— request a class number from RTE 

- make the CLASS WRITE/READ request, 
specifying the class number 

• the program retrieving the data mal<es a 
CLASS GET call, specifying the 
appropriate class number 




;•• 
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COMPLETED CLASS QUEUE 



RTE keeps lists of the data buffers in SAM whicli were 
manufactured by a CLASS WRITE/READ and are waiting to be 
consumed by a CLASS GET. These lists are referred to as 
COMPLETED CLASS QUEUES. 



CLASS # 



63 
64 



CONTROL 



DATA 



CONTROL 




CONTROL 




DATA 


DATA 







The buffer in SAM manufactured by a CLASS WRITE/READ is 
called a CLASS BUFFER. There are two parts to each class 
buffer: 

CONTROL INFORMATION includes 

• the class number 

• the size of the data area 

• other information 



DATA BUFFER which contains the data being transferred- 
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A SAMPLE PROBLEM 



Suppose you are conducting an experiment which 
will produce 20 data values every minute for 10 
minutes. You might design two programs to input 
and analyze each set of 20 values. 

Program DATIN is to be scheduled when the 
experiment begins — 



C DATIN ^ 



Input a set of 20 values 



Drop the 20 values in 
a "mailbox" 

More" 
Yes "V Data 




Schedule ANLYZ to 
retrieve the data and 
analyze it 



r DONE ^ 
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Program ANLYZ will be scheduled by DATIN 
after all of the data sets have been input and 
dropped in the mailbox, ANLYZ will then 
retrieve and analyze each set of data values. 



r ANLYZj 



Get a set of values from 
the mailbox 



Analyze the data, print 
results 
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EXEC 20 — CLASS WRITE/READ 



An EXEC 20 call manufactures a buffer in SAM, fills it with 
data from the program and links it to the appropriate 
completed class queue. 



CALL EXEC C20,ICNWD, IBUFF,ILEN,I0P1 ,I0P2,ICLAS) 

where 

ICNWD = the request is issued to LU 

I BUFF array containing the data to be 

transferred 

ILEN positive number of words or negative 

number of characters to be transferred 

lOPI ^ optional parameters; their values are 

I0P2 placed in the control part of the 

manufactured class buffer and can be 
retrieved by the CLASS GET which 
consumes the buffer 

ICLAS the class number allocated by RTE 
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ALLOCATING A CLASS 



You request a class number by making an EXEC 20 call 
with ICLAS having a value of 0. 



LU « 

ICLAS » 

CALL EXEC (20, LU, IAR1 ,NWD1 ,IPA,IPB, ICLAS) 

t 

RTE will return the class 
number allocated to you 



• You can then use ICLAS to tell another program 
what class number to use when retrieving data sent 
to it. 

• You can also use ICLAS to do additional CLASS 
WRITE/READS on the alrc^ady allocated class 
number. 



CALL EXEC C20,LU,IAR2,NWD2, IPC, IPD, ICLAS) 

A 

RTE uses a previously allocated class number 



17-13 



EXEC 21 - CLASS GET 



An EXEC 21 consumes one buffer in the completed class 
queue of the specified class number. 



CALL EXEC (21 ,ICLAS,IBUFF,ILEN,IDP1 ,I0P2> 



where 

ICLAS 
IBUFF 



= previously allocated class number 

= array where the retrieved data is to be 
stored 



ILEN 



positive number of words, negative 
number of characters to be retrieved 



I0P1 
IDP2 



two optional parameters; if specified, they 
are assigned the values passed when the 
buffer was manufactured 
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DEALLOCATING THE CLASS 



After RTE consumes a buffer in SAM in 
response to an EXEC 21 call, RTE checks 
to see if there are more buffers queued on 
the class number. 

If the last buffer was just consumed, RTE 
deallocates the class number and makes it 
available for use by other programs. 
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THE MANUFACTURER 



0001 FTN4,L 

0002 PROGRAM DATIN 

0003 C 

0004 INTEGER DATAC20), SPROGO) 

0005 DATA SPR0G/2HAN,2HLY,2HZ / 

0006 C 

0007 C INPUT THE 10 SETS OF 20 VALUES 

0008 C 

0009 ICLASS - 

0010 DO 20 I • 1 ,10 

0011 C 

0012 C INPUT A SET OF VALUES 

0013 C 

0014 CALL EXECCI ,45, DATA, 20> 

0015 CALL ABREGCIA,IB) 

0016 C 

0017 C DROP IN THE MAILBOX 

0018 C 

0019 CALL EXECC20,0,DATA, IB, K,L, ICLASS) 

0020 C 

0021 20 CONTINUE 

0022 C 

0023 C AFTER THE DATA HAS BEEN PUT IN THE MAILBOX, 

0024 C SCHEDULE THE ANALYSIS PROGRAM. 

0025 C 

0026 CALL EXEC(10,SPROG, ICLASS) 

0027 C 

0028 END 
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co' 



0001 FTN4,L 



0002 




PROGRAM ANLY2 


0003 


C 




0004 




INTEGER DATA(20>, PARM<5> 


0005 


C . 




0006 


C 


RETRIEVE THE CLASS NUMBER 


0007 


C 




0008 




CALL RMPARCPARM) 


0009 




ICLASS - PARMCI > 


0010 


C 




0011 


C 


GET EACH SET OF VALUES AND ANALY 


0012 


C 




0013 




DO 30 I - 1,10 


0014 


C 




0015 


C 


GET ONE SET OF VALUES 


0016 


C 




0017 




CALL EXECC21 , ICLASS, DATA, 20) 


0018 




CALL ABREG<IA,n3) 


0019 


C 




0020 


c 


ANALYZE THE SET OF VALUES 


0021 


c 




0022 




WRITEC1,101) CDATACJ),J-1 ,IB) 


0023 


101 


F0RMAT<20A2) 


0024 


c 




0025 


30 


CONTINUE 


0026 


C 




0027 




END 
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ANOTHER WAY TO PROGRAM OUR 

EXAMPLE 



Why not let DATIN schedule ANLYZ to process the 
data as it is input rather than waiting until all of the 
data has been received? 



0001 


FTN4, 


.L 


0002 




PROGRAM DATIN 


0003 


C 




0004 




INTEGER DATAC20), SPR0G(3> 


0005 




DATA SPR0G/2HAN,2HLY,2HZ / 


0006 


C 




0007 


C 


INPUT THE FIRST SET OF 10 VALUES, 


0008 


C 


DROP THEM IN THE MAILBOX, AND 


0009 


C 


SCHEDULE THE ANALYSIS PROGRAM. 


0010 


C 




0011 




CALL EXECC1 ,45,DATA,20) 


0012 




CALL ABREGCIA, IB) 


0013 


c . 




0014 




ICLASS - 


0015 




CALL EXECC20,0,DATA, IB, K,L, ICLASS) 


0016 


C 




0017 




CALL EXEC(10,SPROG, ICLASS) 


0018 


C 




0019 


C 


NOW INPUT AND SEND THE REMAINING SETS 


0020 


C 




0021 




DO 20 I - 1 ,9 


0022 


C 




0023 


C 


INPUT A SET OF VALUES 


0024 


C 




0025 




CALL EXECC1 ,45,DATA,20) 


0026 




CALL ABREGCIA,IB) 


0027 


C 




0028 


C 


DROP IN THE MAILBOX 


0029 


C 




0030 




CALL EXECC20,0,DATA, IB, K,L, ICLASS) 


0031 


C 




0032 


20 


CONTINUE 


0033 


C 




0034 




END 
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RETAINING THE CLASS NUMBER 



When a program makes an EXEC 21 call (CLASS 
GET), the specified class number will be 
deallocated if the last buffer queued on that 
class number is consumed by the GET. 



Set bit 13 of iCLAS for a "no deallocate" option; the 
class number will not be returned to the system 
when the last buffer is consumed. 



GALL EXEC C21 , ICLAS-^20000B, IBUFF, ILEN , I0P1 , iaP2) 
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AND THE CONSUMER 
VERSION 2 



0001 FTN4,L 

0002 PROGRAM ANLYZ 

0003 C 

0004 INTEGER DATA(20), PARMC5) 

0005 C 

0006 C RETRIEVE THE CLASS NUMBER 

0007 C 

0008 CALL RMPARCPARM) 

0009 ICLASS - PARMC1 ) 

0010 C 

0011 C GET EACH SET OF VALUES AND ANALYZE 

0012 C 

0013 DO 30 I - 1 ,10 

0014 C 

0015 C GET ONE SET OF VALUES, 

0016 C BUT DON'T DEALLOCATE THE CLASS NUMBER. 

0017 C 

0018 CALL EXECC21 , ICLASS+20000B,DATA,20> 

0019 CALL ABREG€IA,IB> 

0020 C 

0021 C ANALYZE THE SET OF VALUES 

0022 C 

0023 NRITECIJOI) CDATACJ) , J-1 , IB) 

0024 101 FORMATC20A2> 

0025 C 

0026 30 CONTINUE 

0027 C 

0028 C NOW THAT ALL THE DATA SETS HAVE BEEN ANALYZED, 

0029 C USE AN EXTRA GET CALL TO DEALLOCATE THE CLASS NUMBER 

0030 C 

0031 CALL EXECC21 , ICLASS, DATA, 20) 

0032 C 

0033 END 
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17C. CLASS I/O -- A SUMMARY OF 

FEATURES 

Programs may use doss I/O for — 

• program to program communication 

• input/output requests to peripheral devices 

• control requests to peripheral devices 

All types of class I/O share these features — 

• data transfers are done via buffers in SAM 

• CLASS I/O is "double call" 

— one coll manufactures a buffer in SAM 

— a second call consumes a buffer in 



• buffers are queued on doss numbers, the "keys" to 
accessing data 

• buffers may be manufactured and consumed 
asynchronously 
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CLASS 1/0 vs OTHER I/O 



All types of I/O must specify the: 

• LU of the device 

• buffer containing or receiving the data 

• the number of words or characters to be transferred 



Various forms of I/O differ by: 



Number of 
EXEC calls 



Location of 
buffer used 



Program 
swappable 



Program 
waits 







by driver 


? 


7 


Normal I/O 
(unbuffered) 










Automatic 
output buffering 










REIO, input 










REIO, output 










CLASS I/O 
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17D. CLASS i/O FOB DEVICE 9/0 AND 



The class I/O EXEC requests are: 

EXEC 17 - CLASS READ 
EXEC 18 - CLASS WRITE 
EXEC 19 - CLASS CONTROL 
EXEC 20 - CLASS WRITE/ READ 
EXEC 21 - CLASS GET 
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CLASS I/O FOR INPUT 

Suppose PROGB wonts to input some values 
from Q terminal into on array. Using CLASS 
I/O, the program might look like this — 

PROGRAM PROGB 



C 

C REQUEST INPUT OF DATA - CLASS READ 

C 

CALL EXEC<:17, > 

C 

C CONTINUE EXECUTION WHILE RTE DOES THE I/O 

C 

C 

C RETRIEVE THE DATA THAT WAS INPUT - CLASS GET 



C 



CALL EXEC(:21 , ) 
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CLASS READ OPERATION 



Physical M^Mnory 



PROGB In a 
Partition 



System < 



PROGB 



SAM 



RTE 




"Data" 
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CLASS I/O FOR OUTPUT 



Suppose PROGA wants to output a buffer to the line 
printer (LU 6). Using CLASS I/O, the program might 
be structured like tliis — 



PROGRAM PROGA 



C 

C OUTPUT DATA - CLASS WRITE 

C 

CALL EXECC18, . > 

C 

C CONTINUE EXECUTION WHILE RTE DOES THE I/O 

C 



C 

C COMPLETE THE OPERATION - CLASS GET 

C 

CALL EXEC(21 , > 
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CLASS WRITE OPERATION 



Physical Memory 



PROGA in a 
Partition 



PROGA 



System / 



Data 



SAIVI 



RTE 



Line Printer, 
LU 6 
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CLASS I/O FOR DEVICE CONTROL 



Suppose PROGC wants to rewind the tape on the 
mag tape drive. Using CLASS I/O the program might 
be — 



PROGRAM PROGC 



C 

C REQUEST RTE REWIND THE TAPE - CLASS CONTROL 

C 

CALL EXECC19, > 

C 

C CONTINUE EXECUTION WHILE RTE REWINDS THE TAPE 

C 



C 

C COMPLETE THE OPERATION - CLASS GET 

CALL EXECC21 , ) ^ 



•^ 
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CLASS CONTROL OPERATION 



Physical Memory 



PROGC in a 
Partition 



System < 



PROGC 



Control 



SAM 



RTE 
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• CLASS WRITE/READ • 
• CLASS WRITE • CLASS READ • 



The CLASS WRITE/READ, CLASS WRITE, and CLASS 
READ all have the same call format. 



CALL EXEC CICODE,ICNWD, IBUFF,ILEN,I0P1 ,I0P2,ICLAS> 



17 — CLASS READ 

18 »- CLASS WRITE 

20 — CLASS WRITE/READ 



control word for 
request 



class 
number 



optional parameters, 
retrieved by CLASS GET 



length of buffer 



buffer 



These calls manufacture one buffer in SAM. 
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# CLASS CONTROL # 



The CLASS CONTROL call format is: 



CALL EXEC C19,ICNWD,I0P'I , ICLAS, I0P2, I0P3> 



control word, 
specifies LU and 
control function 



optional parameters, 
retrieved by class get 



optional parameter, 
further specifying the 
control request 



class number 



This call manufactures one buffer in SAM. 
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• CLASS GET • 



A CLASS GET call consumes one buffer in SAM, 
regardless of hovtr the buffer was manufactured. 

CALL EXEC C21, ICLAS, IBUFF, ILEN , I0P1 , I0P2 , I0P3> 



class number 



buffer 



V- 



buffer length 

optional parameters 
passed when the buffer 
was created 



how was this buffer 
manufactured? — returned 
with 

1 — READ, WRITE/READ 

2 — WRITE 

3 — CONTROL 
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A QUICK EXAMPLE 



These FORTRAN statements prompt for an Input 
of 2 characters: 

INTEGER IPRMTC4> 

DATA IPRMT/2HIN,2HPU,2HT?,2H_b/ 



CALL EXEC C2,1 ,IPf?MT,4) 
CALL EXEC C1 ,1+400B,IANS,1) 



Using CLASS I/O for the I/O operations: 

INTEGER IPRMTC4> 

DATA IPRMT/2HIN,2HPU,2HT?,2H_b/ 



a CLASS WRITE, CLASS READ 
and 2 CLASS GETS 
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GET A BUFFER IN WHAT ORDER? 

* SAM buffers manufactured by CLASS 
WRITE/READS are retrieved in the order 
in which they were created. 

* SAM buffers manufactured by CLASS 
READS, CLASS WRITES, or CLASS 
CONTROLS are retrieved in the order in 
which they were completed. 
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17E. VARIATIONS WITH CLASS I/O 



The ICLAS parameter of the CLASS I/O calls allows 
for several options in using CLASS I/O. 

CLASS WRITE/ READ. CLASS WRITE. CLASS READ. CLASS CONTROL 



15 14 13 12 



ICLAS: 



"no wait bif 



*■*>/-■ 



class number 







CLASS GET 

15 14 13 12 



ICLAS: 




class number 



"deallocate bit" 

"save blf 
"no wait blf 
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#> 




WAITING FOR A CLASS 
NUMBER OR SAM? 



When a program makes an EXEC 17, 18, 19 or 20 call, it 
will be suspended if: 

• there were no available class numbers and one 
was requested 

• there was not enough SAM to hold the class 
buffer 



Set bit 15 of ICLAS for a "no waif option. The 
program will not be suspended if a resource is 
unavailable and the A-register will be set to: 

• —1 if no available class number 

• —2 if insufficient SAM 
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WHY WAIT FOR YOUR DATA? 



If Q program does q CLASS (BET on o doss number 
before o buffer has been manufactured by a CLASS 
READ, CLASS WRITE or CLASS CONTROL, RTE will suspend 
the program until a buffer Is available. 

When a buffer is placed in the appropriate class queue, 
RTE will "wake up" the suspended program. 

*Thls feature allows class I/O to be used for 
PROGRAM SYNCHRONIZATION 

To avoid being "put to sleep" until the data is available, 
set bit 15 of iCLAS to select the "no wait" option. Upon 
return from the CLASS GET coll, the A register will be 

positive — if data was available and consumed 
negative — if no data was available 




17-37 



GETTING YOUR DATA TWICE 



When a program makes a CLASS GET 
call, the first data buffer in the 
appropriate class queue is consumed. A 
subsequent CLASS GET will consume the 
next data buffer. 

Set bit 14 of ICLAS to retrieve the contents 
of a data buffer but leave the data buffer 
in the class queue. A subsequent CLASS 
GET will get the same data buffer. 
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Suppose operat:ars a-b several 1:erminals are 
entering dal:a which is ussed t:a updat:e a disc 
file. 



ZII3 




ZZ3 




I — \ 




cm 
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TERMINAL HANDLERS 



Since CLASS I/O allows input without wait, one program can 
easily handle inputs from several terminals 
''simultaneously." 

• the program can issue CLASS READS to several 
terminals without waiting for completion. 

• the program (or another program) uses CLASS GETS 
to retrieve the inputs from the terminals as they are 
completed. 




Receive inputs 

& 

Process 
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A VERY SIMPLE EXAMPLE 

Consider a program which will 

— prompt 3 terminals for a string of 10 characters 

— process the input by printing each string on the 
line printer, along witli the LU of the terminal 
which supplied the string 

PROGRAM TERMS 
INTEGER LUS(3) 
DATA LUS/15,16,17/ 



C 
C 
C 



101 
10 



ISSUE 3 PROMPTS AND READS 

DO 10 1=1 ,3 
LU-LUSCI> 
WRITECLU,101 ) 
FORMATC/" INPUT 10 CHARACTERS: ") 



issue CLASS READ 



CONTINUE 



C 
C 
C 



20 



RETRIEVE INPUTS 
DO 20 I«1 ,3 



issue CLASS GET 



print string and LU 



CONTINUE 
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/H€CE CT! 







SECTION 



A RESOURCE NUMBERS AND LU LOCKS 18-3 

B EXEC CALLS TO THE DISC 18*14 

C LARGE PROGRAMS 18-19 



18-2 



LOCKS 



Suppose you hove two programs, each 
accepting operator requests to examine and 
possibly modify the records in one disc file. 



operator looks at a record 



if desired, operator modifies 
the record 




operator loolcs at a record 



if desired, operator modifier 
the record 




PROGRAM 1 



PROGRAM 2 
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CRITICAL SECTIONS 

If you have several programs trying to use the same 
resource, 

• a disc file 

• a memory location 

• a peripheral device 

• a program 

and only one program should use the resource at a 
time, then the segment of code in each program 
which manipulates the resource can be considered 
to be a CRITICAL SECTION. 



Only one program at a time should be executing in 
its critical section! 
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RESOURCE NUMBERS 



One of RTE's services is the monQgement of l\ESOUI\CE 
NUMBERS. 

Your programs con use Resource Numbers to protect 
critical sections of code so that only one program will use a 
protected resource at a time. 

The number of Resource Numbers in an RTE system is 
specified when the system is generated. 




Lock Q R.N. 

look Qt Q record 

If desired, modify the record 

Release the R.N. 




PROGRAM 1 



PROGRAM 2 
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RNRQ 
RESOURCE NUMBER MANAGEMENT 



The library routine RNRQ lets you allocate, 
deallocate, lock and clear RESOURCE 
NUMBERS (RN's). Cooperating programs 
can use RNRQ to coordinate their use of 
shared resources. 

CALL RNRQCICODE, IRN, ISTAT) 



specifies operation resource number, returned status 

desired allocated or of request 

— allocate manipulated 

— deallocate 

— lock 

— unlock 
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TYPES OF REQUESTS 



In a call t:o RNRO, 

• the first parameter indicates the 
request — 



!CODE= 



15 


14 


5 


4 


3 


2 


1 





WAIT 




ALLOCATE 




LOCK 




OPTION 




OPTION 




( 


DPTIOh 


1 


NO 


NO 


D 

E 


G 


L 


U 


G 


L 


W 


A 


A 


L 





N 


L 





A 


B 


L 
L 





C 


L 





C 


1 








B 


A 





B 


A 


T 


R 


C 
A 


A 


L 


C 


A 


L 




T 


T 
E 


L 




K 


L 





m 



the last parameter indicates the 
status of the request — 



ISTAT= NORMAL DEALLOCATE 
(RETURNED) ^ ^^ ,g CLEAR (UNLOCKED) 

2 RN IS LOCKED LOCALLY TO CALLER 

3 RN IS LOCKED GLOBALLY 

4 NO RN AVAILABLE NOW 

5 — 

6 RN IS LOCKED LOCALLY TO ANOTHER PROGRAM 

7 RN WAS LOCKED GLOBALLY WHEN REQUEST 
WAS MADE 

NOTE: STATUS 4, 6, AND 7 ARE RETURNED ONLY 
IF "NO WAIT" BIT IS SET. 
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TO WAIT OR NOT TO WAIT 

A program will be suspended if it tries to 

• allocate a RN and none are available 

• lock a previously locked RN 



A program may continue execution if bit 15 
ICODE is set. For example, 



60 



77 



ICODE = 1 B 

CALL RNRQ ( ICODE+1 OOOOOB, IRN, ISTAT) 

IFCISTAT.GE.4> GO TO 77 

critical section 



CONTINUE 



work if RN 

is already locked, try again later 



GO TO 60 
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TO ABORT OR NOT TO ABORT 



If a call to RNRQ causes an error, RTE will abort the 
calling program. By setting bit 14 of ICODE, a program 
can process its own errors (i.e., continue execution). 



error 



no error-^44 



99 



101 



CALL RNRQCICaDE+40000B, IRN, ISTAT) 

GO TO 99 

CONTINUE 



, continue processing 



CONTINUE 

CALL ABREGCIA,IB) 

WRITEC1 ,101 > IA,IB 

FORMAT(/"RN ERROR", 2A2) 

STOP 
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DEADLY 




EMBRACE 



Programs using RN's can become deadlocked In a 
"deadly embrace". 

This occurs when each program has what the other one 
wants, so neither program can proceed. 

Example: 



PR0G1 
LOCK RN1 ^ 



LOCK RN2 ^ 



RELEASE RN2 

\ 
RELEASE RN1 



Both locks O.K. 



PR0G1 gets blocked 
PR0G2 gets blocked 



PR0.G2 



LOCK RN2 

■> 



■*- LOCK RN1 



RELEASE RN1 

1 

RELEASE RN2 
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AVOIDING DEADLY EMBRACE 



1 . All programs lock RN's in some order. 



Example: 



PR0G1 


PR0G2 


LOCK RN1 


LOCK RN1 




LOCK RN3 


LOG 


K RN2 


1 

' 
' 




1 


RELEASE RN3 


LOCK RN3 


< 1 


> 

1 


RELEASE RN1 


RELEASE RN3 




RELEASE RN2 




RELI 


EASE RN1 





2. Logically associate the resources to be protected 
with one RN instead of several RN's, 
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LU LOCK 



Use the library subroutine LURQ to 
exclusively dominate (lock) a group of LUs. 

LURQ uses one RN to lock all the specified 
LU's to the program. 

CALL LURQ(ICON,LUARY,NUM) 



control option, 
specifies type 
of request 

— loclc 

— unlocl& all 

— unlock some 



array containing 
LU's to be 
locked/unlocked 



number of 
LU's to be 
locked/unlocked 
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CONTROL OPTIONS 



• Let ICON have these values to: 

OOOOOOB — unlock the specified LU's 

10 0000B — unlock all LU's currently locked 

000001 B — lock (with wait) the specified LU's 

100001 B — lock (without wait) the specified LU's 

• If the lock without wait option is selected, the A-register is 
returned with: 

lock successful 
-1 no RN available 

1 one or more LU's are already locked 

• Bit 14 is the "no abort bif ' 

CALL LURQ C IcaN+40000B,LUARY ,NUM) 
error — *- GO TO 99 

no error — *-45 CONTINUE 
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18B. EXEC CALLS TO THE DISC 



LU2 — 
the system cartridge 




The File 
Management 
System manages 
this area, letting 
you access the disc 
via named files. 



Programs can use 
tracks in the 
system track pool 
as temporary 
storage space. 
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EMA IN A NUTSHELL 



• User map registers change to point to different physical pages as needed to 
reference data. 



a 



1 8 Page 
EMA 



Mother 
Partition 



w 



— 3 Page 

--MSEG- -- 



- PROGRAM " 
CODE 



One extra register is always mapped 
in case an element "spills over" to 




ReadA/Vrite Protected 

Extra mapped register. 

These registers point to 
whichever MSEG contains 
the referenced element. 



These registers 
always point 
to program code. 



X, These registers always 
*^ point to system 
pages. 



USER MAP 
32 Registers 



Physical 
Memory 

(System Pages + Program Size + MSEG size + EXTR/V PAGE) «: 32. 
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ALLOCATING TRACKS 



Use an EXEC 4 or 15 request to allocate space from the 
system track pool: 



type of allocation 
4 — local 
IS — global 



number of tracks O O O O You specify 
needed 



CALL EXECCICDDE, ITRAK, ISTRK, IDISC, ISECT) 




RTE returns O O O O starting 

track 



disc LU of 

allocated 

tracks 

(2 or 3) 



number of 64 
word sectors 
per track 
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ACCESSING TRACKS 



The normal EXEC I/O calls are used to access allocated 
tracks. 



CALL EXECCICODE, IDISC, IBUFF, ILEN, ITRK, ISEC) 




1 _ read 

2 _ write 



LU of disc 




array of data 
to be transferred 



positive words, 
negative characters 
to tie transferred 



tracic & 
sector 
address for 
transfer 
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DEALLOCATING TRACKS 

The EXEC 5 or 16 calls deallocate tracks from the 
system track pool. 

CALL EXEC CIcaDE,ITRAK,ISTRK,IDISC) 



5 — release local number of tracks 

16 -- release global to release 



starting track 



LU of tracks 
(2 or 3) 
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18C« LARGE PROGRAMS 



A sample memory configuration might be — 



perhaps the 
largest partition 
is 2d pages 



perhaps 
1 pages 



PHYSICAL 
MEMORY 



• 
• 
• 




program 


\ \ LOGICAL 


• 
• 
• 


\ \ MEMORY 
\ \ (32K) 


SAM 


\ ^ 




\ 


1 9 pages 

for o 
program 


RTE 


TABLES Cr 
_COMMON_ 




TABLES £r 
COMMON 





13 pages 
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LARGE BACKGROUND PROGRAMS 



Many programs do not need access to all of the 
information in RTE's "tables area". Such programs may 
be loaded as LARGE BACKGROUND PROGRAMS or 
TYPE 4 PROGRAMS. 



perhaps the 
largest partition 
is 28 pages 



maybe 
6 pages 

maybe 
2 pages 

maybe 
5 pages 



PHYSICAL 
MEMORY 



SAM 



RTE 



TABLE 
AREA II 



COMMON 



TABLE 

[areaj^ 



LOGICAL 

MEMORY 

(32K) 



27 pages 

for a 
program 



TABLE 
AREA I 



5 pages 



Use the "OP, LB" op code when using LOADR to load a 
LARGE BACKGROUND PROGRAM, 
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STILL TOO BIG? 



LOGICAL MEMORY 



A USER PROGRAM 
f—* finish 



user 
apes 



tiables / 




st:art; 



Program segment;at:ion invoivee breaking up a 
large prograin intio small pieces so t:hat; the 
pieces fit: int:o logical memory. 
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EXEC SEGMENT LOADS 



An EXEC 8 request tells RTE to load a segment 
from disc into memory and transfer control to it. 



CALL EXECC8, INAME, I0P1 , I0P2, IDP3, I0P4, IQP5) 



array containing 

the name of a segment 



optional parameters passed 
to the segment 



Unused 



Segment 

Overlay 

Area 




Main 



CALL EXECC8. .> 



CALL EXECCB..) 



User Partition 
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EXAMl'LE 



FTN4,L 

PROGRAM H0WC3) 
DIMENSION NAMEC3) 
DATA NAME/2HH0,2HW1 ,2H / 
WRITEC1 ,10) 
10 FORMAT ("HOW ") 

CALL EXECC8,NAME) 
END 

PROGRAM H0W1C5) 
DIMENSION NAMEC3) 
DATA NAME/2HH0,2HW2,2H / 
WRITECI ,103 
10 FORMATCARE ") 

CALL EXECC£5,NAME) 
END 

PROGRAM H0W2C5) 
WRITEC1 ,10> 
10 FDRMATC'YOU?") 
CALL EXECC6) 
END 
END$ 
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LOADING SEGMENTED PROGRAMS 



Since LOADR must process segmented programs 
differently than ordinary programs, some pre-load 
preparation will help reduce loading time. 



The modules associated with a segmented program 
can be grouped as — 

• the main 

• the segments 

• subprograms referenced by the main 
and/or one or more of the segments 
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LOAOR COMIVIAND FILES 
FOR SEGMENTED PROGRAMS 



A LOADR command file for a segmented program might 
be organized like this: 

RE J ma in 

SE^ library 

RE, segment 1 

SE, library 

RE, segment 2 

SE, library 



RE, segment n 
SE, library 
EN 
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LONG vs SHORT 
SEGMENTS 



Main programs are identified by "long ID 
Segments." Program segments are identified by 
"short ID Segments." 

When a segmented program is loaded, LOADR fills in 
a blank long ID Segment forthe main and one blank 
short ID Segment for each program segment. 

To remove a segmented program from the system, 
you must release 

— the long ID Segment 

— each short ID Segment 
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SEGMENTED PROGRAMS and 
TYPE 6 FILES 



To save a segmented program as a type 6 file, the main 
and each of the program segments need to be "SP'd". 



SP,MAIN 

SP,SEG01 

SP,SEG02 

SP,SEG03 

SP,SEG04 

OF, MAIN 

aF,SEG01 

OF,SEG02 

QF,SEG03 

0F,SEG04 

RP,SEG01 

RP,SEG02 

RP,SEG03 

RP,SEG04 

RU,MAIN^ 



runs the segmented 
program from the 
type 6 file 
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c 




EXTCNDEO MEM€Cy 
AREA I 





SECTION 



A WHAT IS EMA? 19-3 

B USING EMA FROM FORTRAN 1S-7 

C HOW EMA WORKS 19-14 
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PHYSICAL 
MEMORY 



PARTITION n 



SAM 



RTE 



TABLE AREAS 
I&II 




LOGICAL 
MEMORY (32K) 



A user's program (code & data) must fit into 32K 
words (minus some space for RTE tables, etc.) 
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MOTHER PARTITIONS 





PHYSICAL 








MEMORY 

• 






• 

EMA 




MOTHER , 


DATA 


\ 


PARTITION 


._ — .— _ — — _.. 


N. 




PROGRAM 


\\v 




. 


\ X. \. LOGICAL MEMORY 




• 


\^ \. \ 


(32K) 




SAM 


\^ \\ 


PART OF EMA 
DATA 




RTE 


\ 


PROGRAM 




TABLE AREAS 




TABLE AREAS 




I&II 




I& II 



MSEC 



REAL-TIME and BACKGROUND partitions may be 
combined to form a MOTHER PARTITION 
containing 

— a program 

— an EMA data area 



The size of a Motlier Partition is limited only by the 
amount of physical memory available for 
partitions. 
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<^ WHAT IS EMA? )> 



A means to store and access large amounts of 
data IN MEMORY. 

— data is stored beyond o program's logical 
address space. 

— the size of the EMA data area may extend 
to all available physical memory. 



RTE dynamically ''mops in'' that part of the EMA 
data area which is being referenced by a 
program. 

— EMA operation is ''transparent" to the 
FORTRAN programmer. 

— customized mapping schemes can be 
implemented in Assembly Language. 
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WHEN TO USE EMA? 



Linear Programming or Matrix IVIanipulation witin many 
large data arrays. 

DIMENSION ACIOOOO), BC10000), CC10000>..., ZC10000> 
DO 10 J - 1 ,10000 

ACJ) - BCJ) • BCJ) * CCJ) ... * 2CJ) • QCJ) 
10 CONTINUE 

Virtual schemes off the disc will page fault for each array 
access leading to thrashing. EMA only has to modify user 
map registers to access the elements needed. 



• Random access of large amounts of data (e.g., hashing) 

INTEGER HASH 

DIMENSION IA(20000), IBC20000), ICC20000), IDATAdO), ISYMCIO) 

DO 10 L « 1,10 

IKEY - HASH<ISYMCL)> 

IDATA(L) - IB(IKEY)«IC(IKEY) 
10 CONTINUE 

Subroutine HASH returns a key used to Index Into arrays IB 
and IC. 

• When fast coding is necessary. 

When writing FORTRAN programs, the program 
developer can let the system resolve references to EMA 
elements. 



When real-time acquisition and processing of large 
amounts of data Is needed. 

Using customized mapping schemes v^rltten in Assembly 
Language, large amounts of data may be stored and 
processed in real-time. 
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19B. USING EMA FROM FORTRA 



FORTRAN thinks of the EMA data area as a 
NAMED COMMON block. To use EMA in a 
FORTRAN program: 

• Use a COMMON statement to identify 
your variables in a NAMED COMMON 
block. 



m 



Identify this NAMED COMMON block as 
the EMA data area by using the $EMA 
statement. 



^ Manipulate the EMA variables just like 
any other variables in your program. 
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DECLARING AN EMA DATA AREA 



The FORTRAN $EMA statement declares that the 
variables in the specified NAMED COMMON 
block are to be EMA variables. 

$EMA Cblockname , mseg) 



column 1 



the name of a NAMED 
COMMON block to be 
further defined in a 
COMMON statement 



number of pages in the 
MSEG, a defaults to the 
largest possible MSEC 



The $EMA statement must be the first non-comment 
statement in a program module. 
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EXAMPLE EMA DECLARATION 



FTN4,L 
$EMACXYZ,0) 

PROGRAM EXMPL 

CQMMQN/XYZ/IACI 000,1 00), IBC32767> , REALC1 0000 3 



CALL SUBR CI, J) 



END 
$EMACXY2,0) 

SUBROUTINE SUBR CI,J> 

COMMON/XYZ/IACI 000,1 00), IBC 32767 ),REALC 10000) 



RETURN 
END 
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INPUTTING AND OUTPUTTING EMA 

VARIABLES 



## 



Use FORTRAN READ or WRITE 
statements. The READ or WRITE can be 
formatted or unformatted. 

EMA variables CANNOT be used with 
FMP calls or EXEC calls. 



^ 
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EMA VAEIABLES AND FOETHAN 
SUBPROGRAMS 



A FORTRAN subprogram may be written to 
• accept ordinary variables as parameters 

SUBROUTINE SUMAR C I ARRAY ,NELE, ISUM) 

DIMENSION lARRAY (NELE) 

ISUM»0 

DO 20 1-1 ,NELE 

ISUM - ISUM+IARRAYCI) 
20 CONTINUE 
RETURN 
END 



• accept EMA variables as parameters 

SUBROUTINE SUMAR CI ARRAY , NELE , ISUM) 

EMA lARRAYCNELE) 

ISUM»0 

DO 20 1-1 , NELE 

ISUM » ISUM+IARRAYCI) 
20 CONTINUE 
RETURN 
END 
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PASSING EMA VARIABLES TO 

SUBPROGRAMS 

— CALL BY VALUE — 



If a subprogram is written to accept ordinary 
variables as parameters, a calling program (or 
subprogram) can pass an EMA variable if the 
program uses *'call by value'' when invoking the 
subprogram. 



FTN4,L 
SEMACXYZ,0) 

PROGRAM EXMPL 

C0MM0N/XY2/IA(1 000,1 00 >» IB(32767>,REALCl 0000) 



CALL ADDCIBCl5)+0, CIBC30000)>, ISUM) 



END 

SUBROUTINE ADD (I, J, ISUM) 

ISUM-I+J 

RETURN 

END 
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PASSING EMA VARIABLES TO SUBPROGRAIVIS 
— CALL BY REFERENCE — 



If a subprogram is written to accept ElVIA variables as 
parameters, the calling program (or subprogram) must 
pass EMA variables to the EMA parameters using ''call by 
reference" when invoking the subprogram. 



FTN4,L 
$EMACXYZ,j?) 

PROGRAM EXMPL 

CQMMON/XYZ/IACI 000,1 00), IBC32767),REALC1 0000) 



CALL ADD<IAC15), IBC30000), ISUM) 



END 

SUBROUTINE ADD CI, J, ISUM) 

EMA I, J 

ISUM-I*J 

RETURN 

END 
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19C. HOW EMA WORKS 

The "load map" of an EMA program might be 



:RU,LOADR,,%TEMA 
TEMA 32042 55552 
SUM 55553 55631 



FMTIO 

FMT.E 

PNAME 

REIO 

ERHO 

EHO,E 

FRMTR 

.CFER 



55632 
57126 
57127 
57175 
57322 
57412 
57413 
63040 



57125 
57126 
57174 
57321 
57411 
57412 
63037 
63115 



24998-16002 REV. 1901 781107 
24998-16002 REV. 1901 781107 

771121 24998-16001 
92067-16268 REV. 1903 790316 

771122 24998-16001 
750701 24998-16001 

24998-16002 REV. 1901 781107 
750701 24998-16001 



14 PAGES RELOCATED 32 PAGES REQ'D 18 PAGES EMA 
/LOADR:TEMA READY AT 1:41 PM SUN., 24 JUNE, 1979 

AOADR: ?END 



3 PAGES MSEC 
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USING TRACKS FROM THE 
SYSTEM TRACK POOL. 



Programs using t:racks from the system track 
pool need to — 



^ allocate tracks 

EXEC A or 15 



• access the tracks 

EXEC 1 or S 



^ deallocate the tracks 
EXEC S or le 



DEFAULTING MSEG 

Largest MSEG possible is used. 

All user map registers not pointing to program and 
system are used as IVISEG. 

Default IVISEG size is set at load time; the IVISEG size can 
be modified on-line with SZ command. 



Default value = (32 - 
- program size -1) 



#mapped system pages 



MSEG Default 



Extra { 



MSEG =7 



Program 
Code 



\ y 

USER MAP 
REGISTERS 



$EMA(XYZ,2> 
MSEG Specified as 2 



Read/Write 
Protected 



Extra { 
MSEG =2 { 



Program 
Code 



> 



<j 



r 
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USER MAP 
REGISTERS 



CONSIDERATIONS OF MSEC SIZE 



# In an all FORTRAN program executing 
with EMA firmware, MSEG size makes 
absolutely no difference. The EMA 
firmware always maps two pages (one 
page containing the data and one extra 
page), 

♦ The Assembly Language programmer 
may want to specify MSEG size since 
subroutines .EMIO and MMAP use the 
MSEG size. 
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DISPATCHING EMA 
PROGRAMS 

• RTE wilJ dispatch an EMA program to any 
mother partition large enough to hold it. An 
EMA program can be dispatched to a 
subpartition if it is assigned to it. 

• If a Mother partition is chosen, RTE will 
dispatch an EMA program when: 

1) All programs in the subpartitions are 
swappable. 

2) The EMA program has a higher priority 
than all the programs in the 
subpartitions. 



• RTE then swaps all the programs out of the 
subpartitions. They will vie for other available 
partitions and subpartitions. 

• RTE then loads the EMA program into the 
Mother partition where it gets CPU time just like 
any other program. 
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SWAPPING OUT AN EMA PROGRAM 

• RTE will not swap out an EMA program 
that has been loaded into a Mother 
partition. This avoids thrashing. 



EXCEPTION: RTE will swap out an 

EMA program in a Mother 
partition if a 
higher-priority program 
has been assigned to a 
subpartition within the 
Mother partition. 
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EMA vs. DISC 





DATA 1 

NON-TRANSPARENT 
(USER MAPPING) 


N EMA 

TRANSPARENT 
(FORTRAN EMA) 


DATA ON DISC 

NON-TRANSPARENT 
(USER SEGMENTS) 


LOCAL 
S ACCESS 
p (SEQUENTIAL) 


BEST 


3rd BEST 


2nd BEST 


^ RANDOM 
D ACCESS 


BEST 


2nd BEST 


TERRIBLE 


EASE OF 
CODING 


HARD 


EASY 


HARD 



LOCAL ACCESS EXAMPLES: SOME LINEAR SORTS; ACCESSING SINGLE 

ARRAY; FOURIER TRANSFORMS 

RANDOM ACCESS EXAMPLES: QUICKSORTS; ACCESSING MULTIPLE 

ARRAYS; HASHING 
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LICI^ARIES 




SECTION 

A SYSTEM LIBRARY 20-3 

B RELOCATABLE LIBRARY 20-14 

C DECIMAL STRING ARITHMETIC 20-17 
LIBRARY 
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General purpose subprograms for using RTE services, 
including — 

• RMPAR — retrieve parameters for a program 



PRTN 



return parameters to a ''waiting" Fatiier 



• ABREG — retrieve tlie contents of the A and B registers 

• IFBRK — checks a program's breal< bit 

• GET ST — retrieve parameter strings from interactive 

commands to schedule programs or 
buffers of data from programmatic 
schedule requests 

• RE 10 — allows programs doing I/O to be swappable 

• RNRQ — allows programs to use RTE resource 

numbers 

• LURQ — allows programs to lock devices 

• AND MORE . . . 
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A^/mJH.S^C 



This routine parses on ASCII string containing up to 8 
parameters, separated by commas. 



CALL PARSE ( IBUFA, ICON , IRBUF> 



array containing 
the string to be 
parsed 




in tlie string 



30 word array to 
receive the parsed 
results 



PARSE returns the parsed string in blocl^s of 4 words, one per 
parameter. 



type of parameter parsed 
null numeric ASCII 



a 4 word 


word 1 





1 


2 


block in 


word 2 





value 


2 characters 


IRBUF 


word 3 








2 chorocters 




word 4 








2 chorocters 



IRBUF (30) contains the number of parameters parsed. 
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PARSE EXAMPLE 



FTN4,L 

PROGRAM PARSR 

DIMENSION IBUFAC40>,IRBUF<33) 
C 

C READ AN ASCII STRING INTO IBUFA 
C 

CALL EXECC1 ,1+400B, IBUFA, -80) 

CALL ABREGCIA,IB) 
C 

C AND PARSE IT 
C 

CALL PARSEC IBUFA, IB, IRBUF) 
C 

C DISPLAY RESULTS 
C 

WRITEC6,100)IBUFA 

100 FORMATC" ASCII STRitNGi ",40A2) 
WRITEC6,101 )IRBUF 

101 FORMATC"0 TYPE VALUE VALUE VALUE"/ 
C 8C3X,12,4X,06,2X,#6,2X,§6/) 

C "0",I2," PARAMETERS RECEIVED.") 
END 



iSCII 


STRING: 


HELLO, 14B, 57, C 


TYPE 


VALUE 


VALUE 


VALUE 


2 


0441 OS 


046114 


047440 


1 


000014 


000000 


000000 


1 


000071 


000000 


000000 


2 


041501 


051114 


020040 


1 


000007 


000000 


000000 





000000 


000000 


000000 





000000 


000000 


000000 





000000 


000000 


000000 



5 PARAMETERS RECEIVED. 
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NAMR 



Parse o FMGR nomr parameter string. 



I FC N AMR C IPBUF , I NBUF , LENTH , I STRC > )1 , 20 




1 word buffer to buffer containing number of 
receive ASCII nomr string characters in 

porameters string 



storting character 
number (must be 
variable) 



The returned buffer IPDUF Is structured as: 



1 




2 




3 




4 




5 




6 




7 




6 




9 




10 





\ 



- file name (ASCII) 

— Indicates type of subporameters - 



''null 

numeric 
k ASCII 



- subporameters 



/ 



The value of the function 
NAMR is returned as 



if a string 

has been parsed 

— 1 if no characters 
are in INDUF 
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NAMR EXAMPLE 



FTN4,L 

PROGRAM N 

DIMENSION IPBUFCiO) ,INBUF(40) 

LU=LOGLU<ISES) 
5 WRITE(LU,iOO> 
iOO FORMAT ("ENTER A NAMR.") 

CALL EXEC(i»LU+400E«,INBUF,-80) 

CALL ABREG<IA,IB) 

ISTRC— i 

IF < NAMR < IPBUF , INBUF , IB , ISTRC) ) 99 > i 
10 WR ITE < LU , i i ) I NBUF , IP BUF 

WR ITE ( 6 , i i ) INBUF , IPBUF 
iOi FORMAT (" INBUF NAMR ^ »,40A2/ 

C /"IPBUF PARAMETER BUFFER"/ 

C /" WORD i = ">A2/ 

C " UORD 2 = ",A2/ 

C " WORD 3 = ",A2/ 

C " WORD A - ",86, "B"/ 

C " WORD 5 = ",A2/ 

C " WORD 6 - ";@6,"B"/ 

C " WORD 7 = ",e6,"B"/ 

C " WORD 8 = ",66, "B'V 

C " WORD 9 = ",(?6,"B"/ 

C " WORD iO = ",66, "B") 

GO TO 5 
99 STOP 

END 



INf<UF NAMR » NEWFIL:SC!i2:3!iO 
IPBUF PARAMETER BUFFER 

m^ ^^ it^ >L* *^ ^^ ^if \i/ ^^ ^^ ^^ ^k 4* >^ ^f ^V ^k ^k ^k ^^ 4f 4* ^^ ^^ 1^ St *^ 
^^ 1^^ 1^ ^^ ^^ ^^ ^^ 1^^ ^p <^ V^ ^^ <^ *^ 4^ i>^ ^^ ^^ ^^ <^ ir^ (^ ix» i*T* ^^ ^^ ^S 



WORD 


i 


3S 


NE 


WORD 


2 


S 


WF 


WORD 


3 


=: 


IL 


WORD 


4 


s 


000537B 


WORD 


S 


« 


SC 


WORD 


6 


s 


0000i4& 


WORD 


7 


= 


00 0003B 


WORD 


8 


a 


00Q012B 


WORD 


9 


= 


OOOOOOEi 


WORD 


10 


s 


OQOOOOB 
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|k/|ESSS 



Allows programs to issue interactive system 
commands. 



lA = MESSS 



• ■— no 

message 
returned 
by RTE 

• negative number 
of characters if 
RTE returns a 
message 



array containing 
the ASCII 
command string; 
RTE returns any 
message in this 
array 




UF,INUM,LU) 



number of 
characters in the 
command 



replacement LU for 
RU or ON 
command 



IBUF should be at least 14 words long to allow for the 
largest possible system return. 
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^^"^ 



Program LABIL calls MESSS to change its priority 
during execution. 



FTN4»L 

PROGRAM LABIL(3,993 

DIMENSION IPR50C203,IPR99C20:> 

DATA IPR50/2HPR,2H,L,2HAB,2HIL,2H,S,2H0 / 

DATA IPR99/2HPR,2H,L,2HAB,2H1:L,2H»9,2H9 / 
C 
C SET PRIORITY UP TO SO FOR CRITICAL SECTION 



C 



I - MESSS<IPRS0,11 ) 
IFCI.NE.0)GO TO 99 



. CRITICAL CODE 
C 

C SET PRIORITY BACK TO 99 
C 

« MESSS(IPR99,11 ) 
FCI.NE.O>Ga TO 999 



STOP 
99 WRITEC1 ,100) 

100 FORMATC'MESSAGE RETURNED WHEN SETTING PR TO 50:"> 
CALL EXECC2,1 ,IPR50,n 

GO TO 1000 
999 WRITEC1 ,100 

101 FORMATC"MESSAGE RETURNED WHEN SETTING PR TO 99:") 
CALL EXEC€2,1 ,IPR99,I) 

1000 STOP 
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ASCII EQUIVALENTS OF INTEGERS 



integer — ^ASCII decimal 



CALL CNUMD CIVAL,IBUF> 



positive 
integer 



3 word array to receive the 6 
character ASCii representation, 
ieading zeros suppressed 



integer — *^ASCII octal 



CALL CNUMO CIVAL,IBUF> 



integer — -^ASCII decimal, only 2 digits 



I = KCVT CIVAL) 



ASCil decimal 
equivalent 



integer value, 0-^99 
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CONCERNING LU's 



Is this LU an interactive device? 

INT = IFTTYCLU) 

,^ \ 

— 1 interactive LU under question 

not interactive 



Who scheduled me? 



LU « LOGLU CLUSYS) 



LU of device from system LU of the 

which the program session terminal 

was scheduled 



What is the system LU? 

LU = LUTRU CITEST> 

system LU 
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f(\^^^ 



Supplies the system time in formatted mode. 

CALL FTIME CIBUF) 



a 15 word array where the 
formatted time Is returned, for 
example 

2:09 PM THU. , 5 JAN. , 1978 



WHERE [S MY ID SEGMENT? 



IDGET returns the address of a specified program's ID 
segment. 



IDSEG = IDGETCINAM) 

address of ID segment 3 word array containing 

« .. ._ .^ o program name 

• If program has no ID 

segment 



20-12 



AND MORE 

Q Q Q 


• Retrieve memory contents 

IMVAL « IGET (lADDR) 
contents of memory address in memory 

• Set the S register 

CALL ISSR CN) 

value to be set into the 
S register 

« Retrieve a program's name (possibly renamed) 

CALL PMAME CNAME) 

3 word array returned witii 
program's name 

• Check and then clear the overflow register 

IF CaVFCIDUMMY))10,20 

y \ 

is set is oiear 
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20B. RELOCATABLE LIBRARY 



Math and general purpose utility routines, including. 



• .ENTR — • retrieve parameters for a subprogram 



# AND OTHERS . 
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MATH ROUTINES 



Square root 


A 


s 


SQRTCX) 








Logs 


A 


•• 

a 


ALOGCX) 


A 


a 


ALOGTCX) 


Mods 


A 


a 


AMQDCX.Y) 


J 


« 


MQDCI.K) 


Trig functions 


A 


s 


TAN<X) 


A 


a 


SINCX) etc 


Complex values 


A 


.* 


CSQRTCX) 


A 


s 


CEXP<X> 


Exponentials 


A 


3 


EXPCX> 








Absolute values 


A 


a 


ABSCX) 


J 


a 


lABSCI) 



LOGICAL FUNCTIONS 



And 

Or (Inclusive) 

Or (exclusive) 



K - IAND<I,J) 
K » IQRCI,J> 
K « IXORCI^J) 



v«JtX7 



WJJ 
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MANIPULATING TWO WORD 

INTEGERS 



Callable from FORTR>\N: 

FIXDR converts a real value to a double length record 

number 
FLTDR converts a double length record number to a 

real value 

Callable from Assembler: 



.DADS 


double Integer addition/subtraction 


.DMP 




multiplication 


.DDI 




division 


.DNG 




negation 


.DCO 




comparison 


.DIN 




increment 


.DIS 




increment and skip if zero 


.DDE 




decrement 


.DDS 




decrement and skip if zero 


.FIXD 


converts 


real to double integer 


.XFXD 




extended real to double integer 


.TFXD 




double real to double integer 


.FLTD 


converts 


double integer to real 


.XFTD 




to extended real 


.TFTD 




to double real 
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20C. DECIMAL STRING 



Routines for handling large character (decimal) 
strings- 



— math functions 

— string code conversions 

— string editing 
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GETTING A CHARACTER FROM A 

STRING 

SGET will extract a character from a string: 

CALL SGET C JSTR , J , JHOLD) 



J 
i 

JSTR 



— ♦ — 
JHOLD 



PUTTING A CHARACTER INTO A 

STRING 

SPUT will place a character into a string: 

CALL SPUT CJSTR,J,JHQLD> 



JHOLD 

♦— 

JSTR 



J 
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MOVING CHARACTERS BETWEEN 

STRINGS 



Routine SMOVE moves a string of characters 
from one string array to another. 



CALL SMOVE C JSTR, JBEG, JEND,KSTR,KBEG) 



JSTR 



JBEG 



JEND 



I I 

I . I 



KSTR 



T r 

I I 



KBEG 
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COMPARING CHARACTER STRINGS 

JSCOM will compare two character strings according to 
the ASCII collating sequence. 

IRES = JSCOM (JSTR,JBEG,JEND,KSTR,KBEG, lERR) 





JBEG 


JEND 


JSTR 






\._ ■ 


1 ' 



character strings to be compared, 
character by character 



KSTR 



KBEG 



' <0, string in JSTR < string In KSTR 
JSCOM returns - 0, strings are equal 

s >0, string in JSTR > string In KSTR 



ERR indicates an invalid character in a character string, 



20-20 



APPEND 
LAE EXE 








LAB 11 - DISC CARTRIDGES 



1. If you "accidently" dismount your private cartridge, 
how can you remount the cartridge without losing any 
data? Can you guarantee that this process will prevent 
the loss of any data? 

If you try this exercise, you might want to back up 
your cartridge on tape first; 
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LAB 12 - SPOOLING 



1. Using spooling, list several files to the line printer, 
making sure that no interleaved listing will occur. 



2, File &LB122 contains a PORTRAi>l source program designed 
to input and process a data deck (cards) which has 
the following structure: 




^ 



real value 



one value per card 
in format F4,2 



number of data cards 
following 



one integer value 
in format 12 



The program calculates and prints the average of the 
real values. The integer value acts as a "header" 
value, specifying how many real values are following, 
The program inputs from LU 5. 



Create a disc file with these records: 



b5 

1154 

1132 

1167 

1159 

1173 



( 'b' represents a blank) 



Make a copy of the FORTRAN program for your use (with 

a new program name) and then compile and load the program. 

Using spooling, run the program to input and process 
the data in the disc file (without having to modify 
the program's codel). 
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3. Write a program which will 

- write several records on a tape 
(minicartridge or magnetic tape). 

- rewind the tape 

- read the records just output to the tape 

Use ordinary FORTRAN READS and WRITES (and a REWIND call). 

Create a type 4 file, 5 blocks in length. Repeat the exercise 
but use spooling so that the program you just wrote will 
manipulate the disc file. 



4. Turn the line printer off line, then use spooling to list 

a file on the printer. What happens when you close the spool 
file? HOW do you recover? 
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LAB 13 - BATCH PROCESSING 



1. Create and run a batch job which consists of 



:J0, 

iCL 

:E0 

Notice where the output is printed. Modify 
the job so that the output appears at your 
terminal. 



LAB 14 - SYSTEM CONSOLE 
1. Create and run a batch job which consists of 



:J0, ,,, 

:IF,,EQ,,-1 
:E0 

Submit the job and then abort it while 

* the System Console is in Non-session mode 

* the System Console is in Session mode 

2. File &LB142 contains a FORTRAN source program which 

* prompts for an LU 

* prints a message on that device 

Make a copy of the source file, giving the program a 
new name. Then compile and load the program. 

Run the program from the System Console so that the 
message appears at your (peripheral) terminal. 
Try this with 

* the System Console in Non-session mode 

* the System Console in Session mode 
(or is this possible?) 
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LAB 15 - TIME -SCHEDULED PROGRAMS 



1. File &LB151 contains a FORTRAN source program which 
prints a message at your terminal. Make a copy of 
the source file, giving the program a new name and 
compile and load the program. 

Using the system IT and ON commands, time schedule 
the program to execute 

- every 5 seconds, starting immediately, 

- every 5 seconds, starting 20 seconds from 
the time you schedule it. (Or is this 
possible to do?) 



2. y^rite a program which will time schedule the program 
you used in problem 1 to execute every 5 seconds, 
starting 5 seconds from the time of the scheduling 
request. 



3, Modify the program used in problem 1 so that it will 
place itself in the time list and print out the message 

* every 5 seconds, starting 5 seconds from 
the time when the program is initiallly run, 

* every 5 seconds, starting 20 seconds from 
the time wnen the program is initially run. 

You might include an EXEC time request in your program 
to be sure that the message is being printed at the 
correct intervals. 



4, Place program wtiZAT into the time list to execute 
every 10 seconds, wnat happens when another user 
enters a WH command? 
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LAB 16 - PROGI^MS SCHEDULING OTHER PROGRAMS 



Write two programs which will be a Father and a Son. 
The Fatner should prompt the operator for a string 
of characters and an LU (where the string will 
eventually be printed) and then schedule the Son 
program. The Son should print the string of characters 
on the device specified by the operator. 



2. Files &LB161 and &LB162 contain FORTRAN source programs 

* Program LB161 writes a message and suspends 
itself 

* Program LB162 tries to schedule program L8161 
"queue witn wait." 

Make a copy of each source file and then compile and 
load the programs. 

a) Follow these steps: 

- use the FMGR PU command to run program LB162 

- from breaxmode, run WHZAT to see what is 
happening 

- from breakmode, run program, LB162 again. 
Explain what happens next. 

b) Reschedule program LB161 and then try these steps: 

- run program LB162 from FMGR 

- from breakmode, run WHZAT 

- from breakmode, restart your FMGR 

- from FMGR, run program LB162 again 

- from breakmode, run WHZAT. 
Explain the WHZAT display. 
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LAB 17 - CLASS I/O 
* PART A - PROGRAM TO PROGRAM COMMUNICATION 



1. Write two programs (a Father and a Son). The Father 
will 

- prompt the user to enter a string of 
characters 

- place the string in a "mailbox" 

- schedule the Son to retrieve and print 
the string. 

a) Schedule the Son "without wait" and let the Son 
deallocate the class number, 

b) Schedule the Son "with wait." When the son completes, 
the Father should deallocate the class number. 



2. Write two programs (a Father and a Son). The Father 
should 

- go into a loop, prompting the user for a string 
of characters and placing the string in a 
"mailbox" 

- terminate the loop when the string "XX" is 
entered, then 

- schedule the Son. 



The Son should then retrieve and print the strings, 
terminating after all the strings have been retrieved 
and printed. 



3. Modify the programs you wrote for problem 2 so that 
the Son is scheduled after the first string of 
characters is entered, rather than waiting until an 
"XX" (the last string) is entered. 
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4. In problem 3, if the Son "hangs up" for some reason 
(the printer is down perhaps) , the Father could end 
up having many buffers in SAM, all waiting to be 
retrieved by the Son. 

Arrange your programs so that there will be a maximum 
of 4 buffers in SAM at any one time. 

(Perhaps use a second class number and let the Son 
tell the Father when a buffer is consumed. This way, 
tne Fatner can keep a running count of the number 
of buffers in SAN.) 



* PART B - DEVICE I/O AND CONTROL 

5. Write a program whicn prompts you for a string of 
characters. Let the program repeatedly print a message 
on the line printer until ypu respond with your input. 

6. write a program which goes into a loop, inputting strings 
of characters from your terminal (CLASS I/O) and 

Sh^S^^E^"^.^^®"' !;° S^^ ^^"^ printer. Terminate the loop 
when the string "xx" is. entered. 

Modify the program to accept input from several terminals, 
until an "XX" is entered at each one. when the string is 
output to the line printer, also identify the terminal 
which input the string. 
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LAB 18 - MORE RTE SERVICES 



1„ Write a program wnich insures itself exclusive access 
to the line printer by using an LU Lock. Have the 
program PAUSE before unlocking the printer. While the 
program is suspended, restart your FMGR and try to list 
a file on the printer. 



2, Write two programs which will compete for use of the 
line printer. 

Program 1 should write the message "I'M PROGRAM 1" 
25 times on the printer. 

Program 2 should write the message "I'M PROGRAM 2" 
25 times on the printer. 

Program 1 snould schedule program 2 without wait 
before starting to print its messages. This way, 
the two programs will be competing for the same 
resource. 



Consider these questions: 

* If the line printer is BUFFERED, what will the 
output look like? 

* If the line printer is UNBUFFERED, what will the 
output look like? 

Modify the programs to use a Resource Number so that the 
output will alternate between 5 lines from program 1 and 
5 lines from program 2. 



Some suggestions: 

- use an unouffered line printer. 

- after a program unlocks the RN , have the program 
output a message to the line printer. (Perhaps 
print "PROGRAM x'S TURN OVER"). 

- which program should deallocate the RN? 
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3, File S.LB183 contains a FORTRAN source program which will 

- request a local allocation of 5 tracks 

- print out the location of the tracks allocated 

- PAUSE 

- when rescheduled, deallocate the tracks and 
terminate • 

a) Make a copy of the source file, giving the prograu a 
new name. Compile, load and run the program. While 
the program is suspended, run LGTAT and identify the 
allocated tracks. Reschedule the program and run 
LGTAT after the program terminates, 

b) Run the program again. While it is suspended, aoort 
the program (OF,progr am,l) . Then run LGTAT. 

c) Remove the EXEC track deallocation call and repeat 
part a. 



4. For the system you are using, how many words (locations) 
are gained by making a program "large-background"? 
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LAB 19 - EXTENDED MEMORY AREA (EMA) 



!• RNDFIL is a type 1 disc file containing 16384 real 
values. Write a program which will - 

* input the values and store them in EM.\. 

* compute and output the average of the 
EMA values. 



2. Modify the program you wrote for problem 1 to 
determine the average value and the value closest 
to the average value for the values in EM^. Write 
two subprograms as follows to implement this 
modification. 



Subprogram 1: Write a PUNCTIOiJ subprogram to be 
invoked as follows - 



I » function (value 1, value 2, EMA value) 



the function will 
return - 



an EMA variable 



1 if the EMA value is 
closer to value 1 
than is value 2 

if value 2 is closer 
to value 1 than is 
the EMA value 
(or if value 2 is 
equal to the EMA value) 



a second real variable 



a real variable 
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subprogram 2: Write a SUBROUTINE subprogram which uses the 
above FUNCTION subprogram to determine 
which EMA value is closest to the average. 

The SUBROUTINE is to be invoked by - 



CALL subroutine ( average, index) 



the subroutine is 
passed the average 
of the real values 



the subroutine is to 
return the index of 
the value closest to 
the average 
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LAB 20 - LIBRARIES 



1. Write a program which will accept a 5 character 
program name and "rename" it for the user's 
Session. Print out the new name.. 



2, Write a program whicn places itself into the time 
list, waking up every second to "up the line 
printer, " 



3. Write a program which looks at its ID Segment and 
prints out its type: real-time, background or 
large-background , 

Can your program be a large-background program? 



4. Write a program to flash the display register in 
a clever pattern. 
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* PART B * 

5. Is "random access" using POSNT really slower than "true random 
access" using LOCF and APOSN (not counting set up time) for 
a sequential (type 3 and above) file? 

File TLBIOS contains a source program which you can use to 
test out this idea. You should write two programs: 

Program 1. This program should use POSNT to randomly 
access the file. The program should go into a loop, 
prompting for a record number and then displaying the 
contents of that record. Terminate the program when 
a record number of is entered. 

Program 2. This program should operate similarily to 
the first program except that it should access the file 
using LOCF and APOSN for "true random access," 

Notice any speed difference? 
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SECTION 

A SYSTEM LIBRARY 20^ 

B RELOCATABLE LIBRARY 20-14 

C DECIMAL STRING ARITHMETIC 20-17 
LIBRARY 
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AVOIDING DEADLY EMBRACE 



1 • Ali programs lock RN's in some order. 



Example: 



PR0G1 
LOCK RN1 



LOCK RN2 



LOCK RN3 

RELEASE RN3 
RELEASE RN2 
RELEASE RN1 



PR0G2 
LOCK RN1 
LOCK RN3 



RELEASE RN3 
RELEASE RN1 



2. Logically associate the resources to be protected 
with one RN instead of several RN's- 
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RESTORING CARTRIDGES 



Users can restore cartridges from magnetic tape 
back to private or group disc cartridges with the 
READT utility. 



:RU,READT 



, cartridge 



,mag tape lu 



L'g [>2^2®] 



positive crn 

negative LU of disc cartridge 

if a CRN is specified and the cartridge is not 
already mounted, READT will mount a 
cartridge from the spare cartridge pool and 
restore it from tape. 



• if a disc LU is specified, the specified cartridge 
is restored. 



You can also mount a disc cartridge with the FMGR 
MC command. 



:MC,lu 



P 



size 



id 



, "^^directory tracks[,crn 



used only If there is not a valid file directory on the 
first directory track 



:CL 

LU LAST TRACK 


CR 


LOCK 


P/G/S 


02 00255 

03 00255 
31 00400 


00002 
00003 
00031 




S 
S 
S 


:MC,-32 
FMGR 043 
: ?? 








FMGR 43 L.U NOT 

:SL,32,32 

:MC,-32 

:CL 

LU LAST TRACK 


FOUND 1 

CR 


N SST 
LOCK 


P/G/S 


32 00140 

02 00255 

03 00255 
31 00400 


SS 
00002 
00003 
00031 




P 
S 
S 

s 



:DL,-32 
CR»SS 
ILAB-DC0032 NXTR» 00078 NXSEC-090 'SI[C/TR = 096 LAST TR-00140 #DR TR = 01 



NAME 


TYPE 


SIZE/LU OPEN TO 


XTCL 


00005 


00024 BLKS 


%TP3 


00005 


00024 BLKS 


XTEMA 


00005 


00024 BLKS 


XTTYP 


00005 


00024 BLKS 


TXTSPL 


00004 


00040 BLKS 


&TCL 


00004 


00003 BLKS 


TRSPL 


00003 


00003 BLKS 


DOC 


00003 


00024 BLKS 



ALLOCATING A CLASS 
NUMBER 



You request a class number by making an EXEC 20 call 
with ICLAS having a value of 0. 



LU » 

ICLAS - 

CALL EXEC <20,LU,IAR1 ,NWD1 , IPA, IPB, ICLAS) 

f 

RTE will return the class 
number allocated to you 



• You can then use ICLAS to tell another program 
what class number to use when retrieving data sent 
to it. 

• You can also use ICLAS to do additional CLASS 
WRITE/READS on the already allocated class 
number. 



CALL EXEC (20, LU, IAR2,NWD2, IPC, IPD, ICLAS) 

A 

RTE uses a previously allocated class number 



DISPATCHING EMA 



a 



RTE will dispatch an EMA program to any 
mother partition large enough to hold it. An 
EMA program can be dispatched to a 
subpartition if it is assigned to it. 



If a Mother partition is chosen, RTE will 
dispatch an EMA program when: 

1) All programs in the subpartitions are 
swappable. 

2) The EMA program has a higher priority 
than all the programs in the 
subpartitions. 

RTE then swaps all the programs out of the 
subpartitions. They will vie for other available 
partitions and subpartitions. 

RTE then loads the EMA program into the 
Mother partition where it gets CPU time just like 
any other program. 



MANUFACTURERS and 
CONSUMERS 

EXEC 20 (CLASS WRITE/READ) 

A program initiates a CLASS I/O program to 
program data transfer by making an EXEC 20 calL 
The CLASS WRITE/READ call will "manufacture" a 
buffer in SAM and fill it with data from the calling 
program. 

EXEC 21 (CLASS GET) 

The receiving program retrieves the data in SAM by 
making an EXEC 21 call. The CLASS GET will 
"consume" the buffer in SAM by storing the data in 
the program and releasing the SAM buffer for use 
by other programs. 

*Every call that "manufactures" a buffer in SAM must 
have a corresponding call that "consumes" the buffer. 

CLASS I/O is said to be "double call." 

*Programs can execute independently of the data 
transfers, which are handled by RTE. 



READER COMMENT 

SHEET 



Manual Name: 



(Please Print) 
Part Number: —- 



We welcome your evaluation of this publication. Your comments and 
suggestions will help us improve our training materials. Please use additional 
pages if necessary. 

Is this book technically accurate? 
Did it meet your expectations? 
Was it complete? 
Is it easy to read and use? 
Other comments? 



FROM: 

Name 

Company 

Address 



Training Coordinator/Technical Marketing 
Hewiett-Paclcard Co. 
11000 Woife Road 
Cupertino, California 9S014 



